Tak z _FIXED_ by xsd

let rec(!)x=Printf.printf"%d
"x;t f and
f x y z=x>y&(y>z&((y-x+60)mod 10<5& !(z-(z-y+60)mod 5+5)or!y)||z>x&(x-y>5&f(z-5)x y or!x)or!y)or!z
and t=Scanf.scanf"%d %d %d
";;t f

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

download

return to the top page