Count diamonds level 2 by ksk

let rec($)s?(t=s-Scanf.scanf"%n%_s%n "(-))i=5/t>0&0$i+5/t+t-5;Printf.printf"%d
"i;0$0;;-37$0

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

download

return top