Hofstadter Q sequence: Difference between revisions
Added Arturo implementation
m (→{{header|Phix}}: added syntax colouring the hard way) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 577:
The 1000th term is: 502
49798 terms were preceded by a larger term.</pre>
=={{header|Arturo}}==
<lang rebol>q: new [1 1]
n: 2
while [n<1001][
'q ++ (get q n-q\[n-1]) + get q n-q\[n-2]
n: n+1
]
print ["First ten items:" first.n: 10 q]
print ["1000th item:" q\[999]]</lang>
{{out}}
<pre>First ten items: [1 1 2 3 3 4 5 5 6 6]
1000th item: 502</pre>
=={{header|AutoHotkey}}==
| |||