September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-7.basic
+++ b/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-7.basic
@ -1,2 +1,7 @@
- 10 INPUT N
- 20 PRINT INT (0.5+(((SQR 5+1)/2)**N)/SQR 5)
+FUNCTION recFib (n)
+    IF (n < 2) THEN
+	recFib = n
+    ELSE
+	recFib = recFib(n - 1) + recFib(n - 2)
+    END IF
+END FUNCTION