RosettaCodeData/Task/Y-combinator/Racket/y-combinator-2.rkt
2023-07-01 13:44:08 -04:00

3 lines
117 B
Racket

#lang racket
(define Y (λ (b) ((λ (f) (b (λ (x) ((f f) x))))
(λ (f) (b (λ (x) ((f f) x)))))))