Kolakoski Sequence by brx(tpr03)

print map$_=1+($n+=!--$p[$n])%2,@p=(0)x$$

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

download

return to the top page