RosettaCodeData/Task/Hofstadter-Q-sequence/GW-BASIC/hofstadter-q-sequence.basic

10 lines
173 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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)