Data commit

Task/Hofstadter-Q-sequence/MAD/hofstadter-q-sequence.mad

@@ -0,0 +1,14 @@
+            NORMAL MODE IS INTEGER
+            VECTOR VALUES FMT = $2HQ(,I4,3H) =,I4*$
+
+            DIMENSION Q(1000)
+            Q(1) = 1
+            Q(2) = 1
+            THROUGH FILL, FOR N=3, 1, N.G.1000
+FILL        Q(N) = Q(N-Q(N-1)) + Q(N-Q(N-2))
+
+            THROUGH SHOW, FOR N=1, 1, N.G.10
+SHOW        PRINT FORMAT FMT, N, Q(N)
+            PRINT FORMAT FMT, 1000, Q(1000)
+
+            END OF PROGRAM