Hofstadter Q sequence: Difference between revisions
add gwbasic
(add Fermat) |
(add gwbasic) |
||
Line 1,612:
Q(1000000) = 512066
</pre>
=={{header|GW-BASIC}}==
<lang gwbasic>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)</lang>
=={{header|Haskell}}==
| |||