Anonymous user
Towers of Hanoi: Difference between revisions
m
→{{header|Retro}}: update for retro12
(Add Jsish) |
m (→{{header|Retro}}: update for retro12) |
||
Line 4,122:
=={{header|Retro}}==
<lang Retro>
{ 'Num 'From 'To 'Via } [ var ] a:for-each
:set !Via !To !From !Num ;
: hanoi ( num from to via -- )▼
:display @To @From 'Move_a_ring_from_%n_to_%n\n s:format s:put ;
set @Num
@Num n:dec @From @Via @To hanoi set display
@
~~~</lang>
▲4 1 3 2 hanoi</lang>
=={{header|REXX}}==
| |||