Koch Island by kozima

(mapc'write-line(do((k'("/\\""\\/")(mapcan(#2=lambda(s)(apply #'map'list(#2#(&rest y)(format()"~{~A~}"y))(map'list(#2#(x)(case x(#\/'("   /""/\\ \\""\\ \\/""/   "))(#\\'("\\/\\ ""  / "" /  "" \\/\\"))(t #4("    "))))s)))k))(i(read)))((<(decf i)0)k)))

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

download

return to the top page