Anonymous user
Towers of Hanoi: Difference between revisions
no edit summary
(Add XPL0) |
No edit summary |
||
Line 170:
250 SP = SP - 1 : REM RESTORE STACK POINTER FOR CALLER
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}}==
|