0. #lang racket/base
1.  
2. (define (fib/l n l)
3.   (cond
4.     [(<= n 1) (l 1)]
5.     [else (fib/l (- n 1)
6.                  (lambda (v) (fibSecondL v n l)))]))
7.  
8. (define (fibSecondL v n next-l)
9.   (fib/l (- n 2) (lambda (second-v) (sumL v second-v  next-l))))
10.  
11. (define (sumL first-val second-val next-l)
12.   (next-l (+ first-val second-val)))
13.  
14. (fib/l 5 (lambda (n) n))
15.  
16. (define (fib n)
17.   (cond
18.     [(<= n 1) 1]
19.     [else (+ (fib (- n 1)) (fib (- n 2)))]))
20.  
21. (time (fib/l 35 (lambda (n) n)))
22. (time (fib 35))

=>

8

cpu time: 1634 real time: 1688 gc time: 31

14930352

cpu time: 634 real time: 653 gc time: 0

14930352