Towers of Hanoi: Difference between revisions
Content added Content deleted
(Added Nimrod(Not sure if the implementation is right...)) |
(Added PicoLisp) |
||
Line 740: | Line 740: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(de move (N A B C) # Use: (move 3 'left 'center 'right) |
|||
(unless (=0 N) |
|||
(move (dec N) A C B) |
|||
(println 'Move 'disk 'from A 'to B) |
|||
(move (dec N) C B A) ) )</lang> |
|||
=={{header|Pop11}}== |
=={{header|Pop11}}== |