Data commit

Task/Hofstadter-Q-sequence/XBasic/hofstadter-q-sequence.basic

@@ -0,0 +1,28 @@
+PROGRAM	"Hofstadter Q sequence"
+VERSION	"0.0000"
+
+DECLARE FUNCTION Entry ()
+
+FUNCTION Entry ()
+    limite = 1e5
+    DIM q[limite]
+    q[1] = 1
+    q[2] = 1
+
+    count = 0
+    FOR i = 3 TO limite
+        q[i] = q[i-q[i-1]] + q[i-q[i-2]]
+        IF q[i] < q[i-1] THEN
+           INC count
+        END IF
+    NEXT i
+
+    PRINT "First 10 terms: ";
+    FOR i = 1 TO 10
+        PRINT q[i];
+    NEXT i
+
+    PRINT "\nTerm 1000: "; q[1000]
+    PRINT "Terms less than preceding in first 100k: "; count
+END FUNCTION
+END PROGRAM