Name: Anonymous 2013-02-05 3:17
(define fib
(lambda (n)
(((lambda (f)
((lambda (x) (x x))
(lambda (y) (f (lambda (arg . args)
(apply (y y) arg args))))))
(lambda (f)
(lambda (s n)
(if (= n 0)
((lambda (c) (c (lambda (a b) a))) s)
(f (((lambda (c) (c (lambda (a b) b))) s)) (- n 1))))))
(((lambda (f)
((lambda (x) (x x))
(lambda (y)
(f (lambda (arg . args)
(apply (y y) arg args))))))
(lambda (f)
(lambda (a b)
((lambda (hd tl) (lambda (x) (x hd tl))) a (lambda () (f b (+ a b))))))) 0 1)
n)))
got any other cool fibs to share?
(lambda (n)
(((lambda (f)
((lambda (x) (x x))
(lambda (y) (f (lambda (arg . args)
(apply (y y) arg args))))))
(lambda (f)
(lambda (s n)
(if (= n 0)
((lambda (c) (c (lambda (a b) a))) s)
(f (((lambda (c) (c (lambda (a b) b))) s)) (- n 1))))))
(((lambda (f)
((lambda (x) (x x))
(lambda (y)
(f (lambda (arg . args)
(apply (y y) arg args))))))
(lambda (f)
(lambda (a b)
((lambda (hd tl) (lambda (x) (x hd tl))) a (lambda () (f b (+ a b))))))) 0 1)
n)))
got any other cool fibs to share?