Kolakoski Sequence by henkma

main=putStr$12:9998`take`f[1]2>>=show
f(a:b)x|l<-x:[x|a>1]=l++f(b++l)(3-x)

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

download

return to the top page