Kolakoski Sequence by clock

s=122
do i=3 to 6667
s=s||copies(2-i//2,substr(s,i,1))
end
say s

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

download

return to the top page