RosettaCodeData/Task/Y-combinator/OCaml/y-combinator-1.ocaml
2023-07-01 13:44:08 -04:00

1 line
62 B
Text

let fix f g = (fun x a -> f (x x) a) (fun x a -> f (x x) a) g