RosettaCodeData/Task/Y-combinator/OCaml/y-combinator-2.ocaml
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

1 line
78 B
Text

let fix f = (fun (`X x) -> f(x (`X x))) (`X(fun (`X x) y -> f(x (`X x)) y));;