Towers of Hanoi: Difference between revisions
Content added Content deleted
m (moved Quite BASIC to it's proper (alphabetical) place.) |
No edit summary |
||
Line 1,913: | Line 1,913: | ||
H(n, 1, 2, 3) |
H(n, 1, 2, 3) |
||
)</lang> |
)</lang> |
||
=={{header|IS-BASIC}}== |
|||
<lang IS-BASIC> |
|||
100 PROGRAM "Hanoi.bas" |
|||
110 CALL HANOI(4,1,3,2) |
|||
120 DEF HANOI(DISK,FRO,TO,WITH) |
|||
130 IF DISK>0 THEN |
|||
140 CALL HANOI(DISK-1,FRO,WITH,TO) |
|||
150 PRINT "Move disk";DISK;"from";FRO;"to";TO |
|||
160 CALL HANOI(DISK-1,WITH,TO,FRO) |
|||
170 END IF |
|||
180 END DEF |
|||
</lang> |
|||
=={{header|J}}== |
=={{header|J}}== |