B

2013-04-10 16:19:29 -07:00 · 2013-04-10 16:19:29 -07:00 · 518da4a923
commit 518da4a923
parent e5e8880e41
1019 changed files with 15877 additions and 0 deletions
--- a/Task/Anonymous-recursion/BBC-BASIC/anonymous-recursion.bbc
+++ b/Task/Anonymous-recursion/BBC-BASIC/anonymous-recursion.bbc
@ -0,0 +1,6 @@
+      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)