A-M baby

Task/Fibonacci-sequence/BBC-BASIC/fibonacci-sequence.bbc

@@ -0,0 +1,19 @@
+      PRINT FNfibonacci_r(1),  FNfibonacci_i(1)
+      PRINT FNfibonacci_r(13), FNfibonacci_i(13)
+      PRINT FNfibonacci_r(26), FNfibonacci_i(26)
+      END
+
+      DEF FNfibonacci_r(N)
+      IF N < 2 THEN = N
+      = FNfibonacci_r(N-1) + FNfibonacci_r(N-2)
+
+      DEF FNfibonacci_i(N)
+      LOCAL F, I, P, T
+      IF N < 2 THEN = N
+      P = 1
+      FOR I = 1 TO N
+        T = F
+        F += P
+        P = T
+      NEXT
+      = F