Towers of Hanoi: Difference between revisions
Content added Content deleted
(→{{header|newLISP}}: added NewLISP version. Almost the same as Common LISP.) |
|||
Line 658: | Line 658: | ||
Move disk 2 from 1 to 2 |
Move disk 2 from 1 to 2 |
||
Move disk 1 from 3 to 2</lang> |
Move disk 1 from 3 to 2</lang> |
||
=={{header|newLISP}}== |
|||
<lang> |
|||
(define (move n from to via) |
|||
(if (> n 0) |
|||
(move (- n 1) from via to |
|||
(print "move disk from pole " from " to pole " to "\n") |
|||
(move (- n 1) via to from)))) |
|||
(move 4 1 2 3) |
|||
</lang> |
|||
=={{header|Objective-C}}== |
=={{header|Objective-C}}== |