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

3 lines
83 B
Text

(de Y (F)
(let X (curry (F) (Y) (F (curry (Y) @ (pass (Y Y)))))
(X X) ) )