Towers of Hanoi: Difference between revisions

no edit summary
(Added PicoLisp)
No edit summary
Line 29:
Hanoi(4);
end Towers;</lang>
 
=={{header|Agena}}==
<lang agena>move := proc(n::number, src::number, dst::number, via::number) is
if n > 0 then
move(n - 1, src, via, dst)
print(src & ' to ' & dst)
move(n - 1, via, dst, src)
fi
end
 
move(4, 1, 2, 3)</lang>
 
=={{header|ALGOL 68}}==
Anonymous user