Count diamonds level 1 by 51b

let rec s x=Scanf.scanf" %s"f x
and f a b=b>0&a>"+"&s(Printf.printf"%d
"(b/3);0)||a>""&s(b+1);;s 0

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

download

return to the top page