Towers of Hanoi: Difference between revisions
Add Draco
Not a robot (talk | contribs) (Add Draco) |
|||
Line 1,773:
=={{header|Delphi}}==
See [https://rosettacode.org/wiki/Towers_of_Hanoi#Pascal Pascal].
=={{header|Draco}}==
<lang draco>proc move(byte n, src, via, dest) void:
if n>0 then
move(n-1, src, dest, via);
writeln("Move disk from pole ",src," to pole ",dest);
move(n-1, via, src, dest)
fi
corp
proc nonrec main() void:
move(4, 1, 2, 3)
corp</lang>
{{out}}
<pre>Move disk from pole 1 to pole 2
Move disk from pole 1 to pole 3
Move disk from pole 2 to pole 3
Move disk from pole 1 to pole 2
Move disk from pole 3 to pole 1
Move disk from pole 3 to pole 2
Move disk from pole 1 to pole 2
Move disk from pole 1 to pole 3
Move disk from pole 2 to pole 3
Move disk from pole 2 to pole 1
Move disk from pole 3 to pole 1
Move disk from pole 2 to pole 3
Move disk from pole 1 to pole 2
Move disk from pole 1 to pole 3
Move disk from pole 2 to pole 3</pre>
=={{header|Dyalect}}==
| |||