24 lines
389 B
Plaintext
24 lines
389 B
Plaintext
100 PROGRAM "Hofstad.bas"
|
|
110 PRINT "F sequence:"
|
|
120 FOR I=0 TO 20
|
|
130 PRINT F(I);
|
|
140 NEXT
|
|
150 PRINT :PRINT "M sequence:"
|
|
160 FOR I=0 TO 20
|
|
170 PRINT M(I);
|
|
180 NEXT
|
|
190 DEF F(N)
|
|
200 IF N=0 THEN
|
|
210 LET F=1
|
|
220 ELSE
|
|
230 LET F=N-M(F(N-1))
|
|
240 END IF
|
|
250 END DEF
|
|
260 DEF M(N)
|
|
270 IF N=0 THEN
|
|
280 LET M=0
|
|
290 ELSE
|
|
300 LET M=N-F(M(N-1))
|
|
310 END IF
|
|
320 END DEF
|