Data commit

Task/Fibonacci-sequence/QBasic/fibonacci-sequence-1.basic

@@ -0,0 +1,14 @@
+FUNCTION itFib (n)
+    n1 = 0
+    n2 = 1
+    FOR k = 1 TO ABS(n)
+        sum = n1 + n2
+        n1 = n2
+        n2 = sum
+    NEXT k
+    IF n < 0 THEN
+        itFib = n1 * ((-1) ^ ((-n) + 1))
+    ELSE
+        itFib = n1
+    END IF
+END FUNCTION

Task/Fibonacci-sequence/QBasic/fibonacci-sequence-2.basic

@@ -0,0 +1,38 @@
+DECLARE FUNCTION fibonacci& (n AS INTEGER)
+
+REDIM SHARED fibNum(1) AS LONG
+
+fibNum(1) = 1
+
+'*****sample inputs*****
+PRINT fibonacci(0)      'no calculation needed
+PRINT fibonacci(13)     'figure F(2)..F(13)
+PRINT fibonacci(-42)    'figure F(14)..F(42)
+PRINT fibonacci(47)     'error: too big
+'*****sample inputs*****
+
+FUNCTION fibonacci& (n AS INTEGER)
+    DIM a AS INTEGER
+    a = ABS(n)
+    SELECT CASE a
+        CASE 0 TO 46
+            SHARED fibNum() AS LONG
+            DIM u AS INTEGER, L0 AS INTEGER
+            u = UBOUND(fibNum)
+            IF a > u THEN
+                REDIM PRESERVE fibNum(a) AS LONG
+                FOR L0 = u + 1 TO a
+                    fibNum(L0) = fibNum(L0 - 1) + fibNum(L0 - 2)
+                NEXT
+            END IF
+            IF n < 0 THEN
+                fibonacci = fibNum(a) * ((-1) ^ (a + 1))
+            ELSE
+                fibonacci = fibNum(n)
+            END IF
+        CASE ELSE
+            'limited to signed 32-bit int (LONG)
+            'F(47)=&hB11924E1
+            ERROR 6 'overflow
+    END SELECT
+END FUNCTION

Task/Fibonacci-sequence/QBasic/fibonacci-sequence-3.basic

@@ -0,0 +1,7 @@
+FUNCTION recFib (n)
+    IF (n < 2) THEN
+	recFib = n
+    ELSE
+	recFib = recFib(n - 1) + recFib(n - 2)
+    END IF
+END FUNCTION

Task/Fibonacci-sequence/QBasic/fibonacci-sequence-4.basic

@@ -0,0 +1,21 @@
+DATA -1836311903,1134903170,-701408733,433494437,-267914296,165580141,-102334155
+DATA 63245986,-39088169,24157817,-14930352,9227465,-5702887,3524578,-2178309
+DATA 1346269,-832040,514229,-317811,196418,-121393,75025,-46368,28657,-17711
+DATA 10946,-6765,4181,-2584,1597,-987,610,-377,233,-144,89,-55,34,-21,13,-8,5,-3
+DATA 2,-1,1,0,1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765
+DATA 10946,17711,28657,46368,75025,121393,196418,317811,514229,832040,1346269
+DATA 2178309,3524578,5702887,9227465,14930352,24157817,39088169,63245986
+DATA 102334155,165580141,267914296,433494437,701408733,1134903170,1836311903
+
+DIM fibNum(-46 TO 46) AS LONG
+
+FOR n = -46 TO 46
+    READ fibNum(n)
+NEXT
+
+'*****sample inputs*****
+FOR n = -46 TO 46
+    PRINT fibNum(n),
+NEXT
+PRINT
+'*****sample inputs*****