6 lines
231 B
Text
6 lines
231 B
Text
PRINT FNfib(10)
|
|
END
|
|
|
|
DEF FNfib(n%) IF n%<0 THEN ERROR 100, "Must not be negative"
|
|
LOCAL P% : P% = !384 + LEN$!384 + 4 : REM Function pointer
|
|
(n%) IF n%<2 THEN = n% ELSE = FN(^P%)(n%-1) + FN(^P%)(n%-2)
|