Anonymous user
Towers of Hanoi: Difference between revisions
Added Oz example.
(→{{header|R}}: Added REBOL example.) |
(Added Oz example.) |
||
Line 617:
hanoimove(4, 1, 2, 3);</lang>
=={{header|Oz}}==
<lang oz>declare
proc {TowersOfHanoi N From To Via}
if N > 0 then
{TowersOfHanoi N-1 From Via To}
{System.showInfo "Move from "#From#" to "#To}
{TowersOfHanoi N-1 Via To From}
end
end
in
{TowersOfHanoi 4 left middle right}</lang>
=={{header|Pascal}}==
| |||