Anonymous user
Towers of Hanoi: Difference between revisions
→{{header|R}}: formatting
(→{{header|R}}: formatting) |
|||
Line 4,113:
{{trans|Octave}}
<lang rsplus>hanoimove <- function(ndisks, from, to, via) {
if (
cat("move disk from", from, "to", to, "\n")
} else {
hanoimove(ndisks - 1, from, via, to)
hanoimove(1, from, to, via)
hanoimove(ndisks - 1, via, to, from)
}
}
hanoimove(4, 1, 2, 3)</lang>
=={{header|Racket}}==
| |||