RosettaCodeData/Task/Hofstadter-Q-sequence/GW-BASIC/hofstadter-q-sequence.basic
2023-07-01 13:44:08 -04:00

9 lines
173 B
Text

10 DIM Q!(1000)
20 Q(1) = 1: Q(2) = 1
30 FOR N = 3 TO 1000
40 Q(N) = Q(N - Q(N - 1)) + Q(N - Q(N - 2))
50 NEXT N
60 FOR N = 1 TO 10
70 PRINT Q(N)
80 NEXT N
90 PRINT Q(1000)