Data update

Task/Padovan-n-step-number-sequences/QBasic/padovan-n-step-number-sequences.basic

@@ -0,0 +1,33 @@
+DECLARE SUB padovanN (n!, p!())
+CONST t = 15
+DIM SHARED p(t)
+
+PRINT "First"; t; " terms of the Padovan n-step number sequences:"
+FOR n = 2 TO 8
+    PRINT n; ":";
+
+    CALL padovanN(n, p())
+
+    FOR i = 0 TO t - 1
+        PRINT USING "### "; p(i);
+    NEXT i
+    PRINT
+NEXT n
+
+SUB padovanN (n, p())
+    IF n < 2 OR t < 3 THEN
+        FOR i = 0 TO t - 1
+            p(i) = 1
+        NEXT i
+        EXIT SUB
+    END IF
+
+    CALL padovanN(n - 1, p())
+
+    FOR i = n + 1 TO t - 1
+        p(i) = 0
+        FOR j = i - 2 TO i - n - 1 STEP -1
+            p(i) = p(i) + p(j)
+        NEXT j
+    NEXT i
+END SUB