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-3.basic
+++ b/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-3.basic
@ -1,7 +1,10 @@
-FUNCTION recFib (n)
-    IF (n < 2) THEN
-	recFib = n
-    ELSE
-	recFib = recFib(n - 1) + recFib(n - 2)
-    END IF
-END FUNCTION
+ 10 INPUT N
+ 20 A=0
+ 30 B=1
+ 40 FOR I=2 TO N
+ 50 C=B
+ 60 B=A+B
+ 70 A=C
+ 80 NEXT I
+ 90 PRINT B
+100 END