Towers of Hanoi: Difference between revisions
Content added Content deleted
(→{{header|Dc}}: The content is under BSD license, I have listed the source.) |
(Modula-3) |
||
Line 404:
Print["Move dist from pole ", from, " to ", to, "."];
Hanoi[n-1, via, from, to])
=={{header|Modula-3}}==
<pre>
MODULE Hanoi EXPORTS Main;
FROM IO IMPORT Put;
FROM Fmt IMPORT Int;
PROCEDURE doHanoi(n, from, to, using: INTEGER) =
BEGIN
IF n > 0 THEN
doHanoi(n - 1, from, using, to);
Put("move " & Int(from) & " --> " & Int(to) & "\n");
doHanoi(n - 1, using, to, from);
END;
END doHanoi;
BEGIN
doHanoi(4, 1, 2, 3);
END Hanoi.
</pre>
=={{header|OCaml}}==
| |||