Towers of Hanoi: Difference between revisions

m
→‎{{header|REXX}}: recoded MOV subroutine to use named arguments instead of numerated args, aligned the args in the calling of MOV. -- ~~~~
m (→‎simple text moves: replaced solid right arrow glyph. -- ~~~~)
m (→‎{{header|REXX}}: recoded MOV subroutine to use named arguments instead of numerated args, aligned the args in the calling of MOV. -- ~~~~)
Line 1,630:
exit /*stick a fork in it, we're done.*/
/*─────────────────────────────MOV subroutine───────────────────────────*/
mov: if arg(3)==1procedure expose move; then call dsk arg( #1),arg( #2), #3
if #3==1 then call dsk #1, #2
else do
else call mov arg(1),6-arg(1)-arg(2),arg(3)-1do
call mov #1, call mov arg( 6-#1),arg(-#2), #3-1
call mov #1, call mov 6-arg(1)-arg( #2),arg(2),arg(3)- 1
call mov 6-#1-#2, end #2, #3-1
else doend
return
/*─────────────────────────────DSK subroutine───────────────────────────*/