Data update

Task/Fibonacci-n-step-number-sequences/Chipmunk-Basic/fibonacci-n-step-number-sequences.basic

@@ -0,0 +1,34 @@
+100 sub fib(a())
+110   erase f
+120   dim f(24)
+130   b = 0
+140   for x = 1 to ubound(a)
+150     b = b+1
+160     f(x) = a(x)
+170   next x
+180   for i = b to 12+b
+190     print using "#### ";f(i-b+1);
+200     for j = (i-b+1) to i
+210       f(i+1) = f(i+1)+f(j)
+220     next j
+230   next i
+240   print
+250 end sub
+260 cls
+270 print "  fibonacci =>";
+280 dim a(2)
+290 a(1) = 1 : a(2) = 1
+300 fib(a())
+310 print " tribonacci =>";
+320 dim a(3)
+330 a(1) = 1 : a(2) = 1 : a(3) = 2
+340 fib(a())
+350 print " tetranacci =>";
+360 dim c(4)
+370 c(1) = 1 : c(2) = 1 : c(3) = 2 : c(4) = 4
+380 fib(c())
+390 print "      lucas =>";
+400 dim d(2)
+410 d(1) = 2 : d(2) = 1
+420 fib(d())
+430 end

Task/Fibonacci-n-step-number-sequences/QB64/fibonacci-n-step-number-sequences.qb64

@@ -0,0 +1,37 @@
+Rem $Dynamic
+
+Cls
+Print "  fibonacci =>";
+Dim a(1 To 2) As Integer
+a(1) = 1
+a(2) = 1
+Call fib(a())
+Print " tribonacci =>";
+ReDim _Preserve a(1 To 3)
+a(3) = 2
+Call fib(a())
+Print " tetranacci =>";
+ReDim _Preserve a(1 To 4)
+a(4) = 4
+Call fib(a())
+Print "      lucas =>";
+ReDim a(1 To 2)
+a(1) = 2
+a(2) = 1
+Call fib(a())
+End
+
+Sub fib (a() As Integer)
+    Dim f(24)
+    b = 0
+    For x = 1 To UBound(a)
+        b = b + 1
+        f(x) = a(x)
+    Next x
+    For i = b To 12 + b
+        Print Using "#### "; f(i - b + 1);
+        For j = (i - b + 1) To i
+            f(i + 1) = f(i + 1) + f(j)
+        Next j
+    Next i
+End Sub

Task/Fibonacci-n-step-number-sequences/QBasic/fibonacci-n-step-number-sequences.basic

@@ -0,0 +1,35 @@
+DECLARE SUB fib (a() AS INTEGER)
+
+CLS
+PRINT "  fibonacci =>";
+DIM a(1 TO 2) AS INTEGER
+a(1) = 1: a(2) = 1
+CALL fib(a())
+PRINT " tribonacci =>";
+DIM b(1 TO 3) AS INTEGER
+b(1) = 1: b(2) = 1: b(3) = 2
+CALL fib(b())
+PRINT " tetranacci =>";
+DIM c(1 TO 4) AS INTEGER
+c(1) = 1: c(2) = 1: c(3) = 2: c(4) = 4
+CALL fib(c())
+PRINT "      lucas =>";
+DIM d(1 TO 2) AS INTEGER
+d(1) = 2: d(2) = 1
+CALL fib(d())
+END
+
+SUB fib (a() AS INTEGER)
+    DIM f(24)
+    b = 0
+    FOR x = 1 TO UBOUND(a)
+        b = b + 1
+        f(x) = a(x)
+    NEXT x
+    FOR i = b TO 12 + b
+        PRINT USING "#### "; f(i - b + 1);
+        FOR j = (i - b + 1) TO i
+            f(i + 1) = f(i + 1) + f(j)
+        NEXT j
+    NEXT i
+END SUB