17 lines
368 B
Plaintext
17 lines
368 B
Plaintext
@% = 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))
|