Count diamonds level 2 by c|mell

(do((i 0(case(read)(*(+ 1/2 i))(#.(read)(format t"~D
"i)0)(t i))))(()))

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

download

return top