Towers of Hanoi: Difference between revisions
Add XPL0
(Added BBC BASIC) |
(Add XPL0) |
||
Line 2,238:
End Sub
End Module</lang>
=={{header|XPL0}}==
<lang XPL0>code Text=12;
proc MoveTower(Discs, From, To, Using);
int Discs, From, To, Using;
[if Discs > 0 then
[MoveTower(Discs-1, From, Using, To);
Text(0, "Move from "); Text(0, From);
Text(0, " peg to "); Text(0, To); Text(0, " peg.^M^J");
MoveTower(Discs-1, Using, To, From);
];
];
MoveTower(3, "left", "right", "center")</lang>
Output:
<pre>
Move from left peg to right peg.
Move from left peg to center peg.
Move from right peg to center peg.
Move from left peg to right peg.
Move from center peg to left peg.
Move from center peg to right peg.
Move from left peg to right peg.
</pre>
=={{header|XSLT}}==
| |||