Rule 30 by kozima

(do((s(format()"  ~A  "(read-line)))(i 0(1+ i)))(())(princ(if(regexp:match"^#  \\|^  \\?#"s :start i)"#"" ")))

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

download

return to the top page