Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (Y f) (lambda (n) ((f (Y f)) n)))
- (define metafact (lambda (self) (lambda (n) (if (< n 2) 1 (* n (self (- n 1)))))))
- (define fact (Y metafact))
- (equal? (fact 5) 120)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
