RosettaCodeData/Task/Anonymous-recursion/BBC-BASIC/anonymous-recursion.basic

7 lines
231 B
Plaintext

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)