Y-FizzBuzz

by mokehehe

(( ;; Y-combinator. (lambda (f) ((lambda (proc) (f (lambda (arg) ((proc proc) arg)))) (lambda (proc) (f (lambda (arg) ((proc proc) arg)))))) ;; FizzBuzz using Y-combinator. (lambda (self) (lambda (n) (print (cond ((zero? (mod n 15)) 'FizzBuzz) ((zero? (mod n 3)) 'Fizz) ((zero? (mod n 5)) 'Buzz) (else n))) (when (< n 100) (self (+ n 1)))))) ;; Wake. 1)