Hofstadter Q sequence by pooq

dim q(300)
do
i=i+1
q(i)=1
if i>2q(i)=q(i-q(i-1))+q(i-q(i-2))
?q(i)loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page