17 lines
368 B
Text
17 lines
368 B
Text
|
@% = 3 : REM Column width
|
||
|
|
PRINT "F sequence:"
|
||
|
|
FOR i% = 0 TO 20
|
||
|
|
PRINT FNf(i%) ;
|
||
|
|
NEXT
|
||
|
|
PRINT
|
||
|
|
PRINT "M sequence:"
|
||
|
|
FOR i% = 0 TO 20
|
||
|
|
PRINT FNm(i%) ;
|
||
|
|
NEXT
|
||
|
|
PRINT
|
||
|
|
END
|
||
|
|
|
||
|
|
DEF FNf(n%) IF n% = 0 THEN = 1 ELSE = n% - FNm(FNf(n% - 1))
|
||
|
|
|
||
|
|
DEF FNm(n%) IF n% = 0 THEN = 0 ELSE = n% - FNf(FNm(n% - 1))
|