RosettaCodeData/Task/Y-combinator/PicoLisp/y-combinator-1.l

4 lines
83 B
Plaintext

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