Towers of Hanoi: Difference between revisions
Content added Content deleted
(→{{header|Rust}}: 2 spaces ident -> 4 spaces) |
(Added uBasic/4tH version) |
||
Line 3,245: | Line 3,245: | ||
END</lang> |
END</lang> |
||
=={{header|uBasic/4tH}}== |
|||
{{trans|C}} |
|||
<lang>Proc _Move(4, 1,2,3) ' 4 disks, 3 poles |
|||
End |
|||
_Move Param(4) |
|||
If (a@ > 0) Then |
|||
Proc _Move (a@ - 1, b@, d@, c@) |
|||
Print "Move disk from pole ";b@;" to pole ";c@ |
|||
Proc _Move (a@ - 1, d@, c@, b@) |
|||
EndIf |
|||
Return</lang> |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |
||
{{works with|bash}} |
{{works with|bash}} |