Anonymous user
Towers of Hanoi: Difference between revisions
m
oct...
m (→{{header|C++}}: lang tag) |
m (oct...) |
||
Line 338:
END PROGRAM TOWER</lang>
=={{header|GNU Octave}}==▼
<lang octave>function hanoimove(ndisks, from, to, via)▼
if ( ndisks == 1 )▼
printf("Move disk from pole %d to pole %d\n", from, to);▼
else▼
hanoimove(ndisks-1, from, via, to);▼
hanoimove(1, from, to, via);▼
hanoimove(ndisks-1, via, to, from);▼
endif▼
endfunction▼
hanoimove(4, 1, 2, 3);</lang>▼
=={{header|Haskell}}==
Line 488 ⟶ 474:
let () =
hanoi 4 1 2 3</lang>
▲<lang octave>function hanoimove(ndisks, from, to, via)
▲ if ( ndisks == 1 )
▲ printf("Move disk from pole %d to pole %d\n", from, to);
▲ else
▲ hanoimove(ndisks-1, from, via, to);
▲ hanoimove(1, from, to, via);
▲ hanoimove(ndisks-1, via, to, from);
▲ endif
▲endfunction
▲hanoimove(4, 1, 2, 3);</lang>
=={{header|Pascal}}==
| |||