Towers of Hanoi: Difference between revisions
Added uBasic/4tH version
(→{{header|Rust}}: 2 spaces ident -> 4 spaces) |
(Added uBasic/4tH version) |
||
Line 3,245:
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}}==
{{works with|bash}}
| |||