RosettaCodeData/Task/Y-combinator/Racket/y-combinator-2.rkt
2019-09-12 10:33:56 -07:00

3 lines
117 B
Racket

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