Count diamonds level 1 by xsd

let rec(!)?(c=input_char stdin)k=c='-'&k>0&()=Printf.printf"%d
"(k/5)& !0;c='*'& !(k+1);!k;;!0

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

download

return to the top page