Towers of Hanoi: Difference between revisions
Content added Content deleted
(Add XPL0) |
No edit summary |
||
Line 170: | Line 170: | ||
250 SP = SP - 1 : REM RESTORE STACK POINTER FOR CALLER |
250 SP = SP - 1 : REM RESTORE STACK POINTER FOR CALLER |
||
260 RETURN</lang> |
260 RETURN</lang> |
||
=={{header|BASIC256}}== |
|||
<lang BASIC256>call move(4,1,2,3) |
|||
print "Mission complete!" |
|||
end |
|||
subroutine move (n, fromPeg, toPeg, viaPeg) |
|||
if n>0 then |
|||
call move(n-1, fromPeg, viaPeg, toPeg) |
|||
print "Move disk from ";:print fromPeg;:print " to ";:print toPeg |
|||
call move(n-1, viaPeg, toPeg, fromPeg) |
|||
end if |
|||
end subroutine</lang> |
|||
Output: |
|||
Move disk from 1 to 3 |
|||
Move disk from 1 to 2 |
|||
Move disk from 3 to 2 |
|||
Move disk from 1 to 3 |
|||
Move disk from 2 to 1 |
|||
Move disk from 2 to 3 |
|||
Move disk from 1 to 3 |
|||
Move disk from 1 to 2 |
|||
Move disk from 3 to 2 |
|||
Move disk from 3 to 1 |
|||
Move disk from 2 to 1 |
|||
Move disk from 3 to 2 |
|||
Move disk from 1 to 3 |
|||
Move disk from 1 to 2 |
|||
Move disk from 3 to 2 |
|||
Towers of Hanoi puzzle completed! |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |