Tetris by kozima

(defun f(n)(loop repeat n collect(read-line)))(setf S"##########"a(f 4)c`(,@(f 11),S)_(do((d c #1=(cdr d)))((some(#3=lambda(u v)(some'char= S u v))#1#a)(replace d(mapcar(#3#(u v)(map'string(#3#(x y)(if(eq x y)x #\#))u v))a d))(format t"~V@{~10T
~}~{~A
~}"(- 15(length(delete S c :test'equal)))c))))

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

download

return to the top page