Count diamonds level 2 by Pla

(#0=dotimes,20(print(/(let1 r 0(#0#,11(with-input-from-string(read-line)(pa$ port-map(rec,x(if(eq? x'*)(inc! r)))read)))r)2)))

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

download

return top