fast y-combinator fibs

(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?

>>2

try running it

http://repl.it/languages/Scheme