Towers of Hanoi: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,072: / Line 1,072: @@
 {{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
+<lang gwbasic>   10 DEF FNM3(X)=X-INT(X/3)*3:REM MODULO 3
-n=4:gosub 100
+N=4:GOSUB 100
-end
+END
-rem hanoi
+REM HANOI
-:for m=1 to 2^n-1
+:FOR M=1 TO 2^N-1
-::print m;":",fnm(m and m-1)+1;" to ";fnm((m or m-1)+1)+1
+::PRINT MID$(STR$(M),2);":",FNM3(M AND M-1)+1;"TO";FNM3((M OR M-1)+1)+1
-:next
+:NEXT M
-return</lang>
+RETURN</lang>
 {{out}}
-<pre>1 :     1  to 3
+<pre>1:     1 TO 3
-:     1  to 2
+:     1 TO 2
-:     3  to 2
+:     3 TO 2
-:     1  to 3
+:     1 TO 3
-:     2  to 1
+:     2 TO 1
-:     2  to 3
+:     2 TO 3
-:     1  to 3
+:     1 TO 3
-:     1  to 2
+:     1 TO 2
-:     3  to 2
+:     3 TO 2
-:    3  to 1
+:    3 TO 1
-:    2  to 1
+:    2 TO 1
-:    3  to 2
+:    3 TO 2
-:    1  to 3
+:    1 TO 3
-:    1  to 2
+:    1 TO 2
-:    3  to 2 </pre>
+:    3 TO 2 </pre>
 =={{header|BASIC256}}==