Kolakoski Sequence by kaki

(apply print(do((i 1)(j 2)(n 1(- 3 n))(\`(1 2 2,@(make-list 9997))))((> j 9998)\)(dotimes'(~\(inc! i))(set!(~\(inc! j))n))))

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

download

return to the top page