Church Numerals in ski by kozima

let m=Obj.magic
let rec e()=match input_byte stdin/2with
5->e()|48->e()^m e()|57->m(fun a b c->b c^a c)|53->m(fun a b->a)|_->fun a->a and
f()=Printf.printf"%d
"(e()((+)1)0);f()and(^)x y=y x;;f()

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

download

return to the top page