Data commit

Task/Hofstadter-Q-sequence/True-BASIC/hofstadter-q-sequence.basic

@@ -0,0 +1,24 @@
+LET limite = 100000
+
+DIM q(0)
+MAT REDIM q(limite)
+LET q(1) = 1
+LET q(2) = 1
+
+LET count = 0
+FOR i = 3 TO limite
+    LET q(i) = q(i-q(i-1))+q(i-q(i-2))
+    IF q(i) < q(i-1) THEN
+       LET count = count + 1
+    END IF
+NEXT i
+
+PRINT "First 10 terms: ";
+FOR i = 1 TO 10
+    PRINT q(i);
+NEXT i
+
+PRINT
+PRINT "Term 1000: "; q(1000)
+PRINT "Terms less than preceding in first 100k: "; count
+END