Data commit

Task/Fibonacci-sequence/Smart-BASIC/fibonacci-sequence.basic

@@ -0,0 +1,31 @@
+FOR i = 0 TO 15
+    PRINT fibR(i),fibI(i),fibN(i)
+NEXT i
+
+/* Recursive Method */
+DEF fibR(n)
+    IF n <= 1 THEN
+        fibR = n
+    ELSE
+        fibR = fibR(n-1) + fibR(n-2)
+    ENDIF
+END DEF
+
+/* Iterative Method */
+DEF fibI(n)
+    a = 0
+    b = 1
+    FOR i = 1 TO n
+        temp = a + b
+        a = b
+        b = temp
+    NEXT i
+    fibI = a
+END DEF
+
+/* N-th Term Method */
+DEF fibN(n)
+    uphi = .5 + SQR(5)/2
+    lphi = .5 - SQR(5)/2
+    fibN = (uphi^n-lphi^n)/SQR(5)
+END DEF