Count diamonds level 1 by Pla

(#0=dotimes,20(print(/(let1 r -1(#0#,11(with-input-from-string(read-line)(pa$ port-map(rec,x(inc! r))read)))r)3)))

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

download

return to the top page