Bracket Matching by ksk

let p,q,x=Obj.magic(Printf.printf,Scanf.scanf,"failed at: %c%s
")let rec f(h::t)=q"%c"(fun c->c=10&(h=0&0=p"yes
"||p x 'E'"OL";f[0])||c*7mod 4<2&f(c::h::t)||h=c-2+41/c&f t||(q"%s
"(p x c);f[0]));;f[0]

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

download

return to the top page