Kolakoski Sequence by Steffan (ppcg)

r=r%1
~(x:t)%n=n:[n|x>1]++t%(3-n)
main=putStr$take 10000r>>=show

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

download

return to the top page