Towers of Hanoi: Difference between revisions
Content added Content deleted
Line 407: | Line 407: | ||
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> |
||
===Using binary method=== |
|||
{{works with|Commodore BASIC}} |
|||
Very fast version in BASIC V2 on Commodore C-64 |
|||
<lang gwbasic> 10 def fnm(x)=x-int(x/3)*3:rem modulo |
|||
20 n=4 |
|||
30 gosub 100 |
|||
40 end |
|||
100 rem hanoi |
|||
110 for m=1 to 2^n-1 |
|||
120 :print m;":",fnm(m and m-1)+1;" to ";fnm((m or m-1)+1)+1 |
|||
130 next |
|||
140 return</lang> |
|||
=={{header|BASIC256}}== |
=={{header|BASIC256}}== |