Kolakoski Sequence by pooq

dim a(2e4)
a(1)=1
a(2)=2
a(3)=2
m=4
for i=1to 1e4?a(i),"";
for j=1to a(i+2)a(m)=2-mod(i,2)
m=m+1next
next

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

download

return to the top page