RosettaCodeData/Task/Y-combinator/OCaml/y-combinator-2.ocaml

2 lines
78 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let fix f = (fun (`X x) -> f(x (`X x))) (`X(fun (`X x) y -> f(x (`X x)) y));;