5 lines
128 B
Scheme
5 lines
128 B
Scheme
(define (fib-iter n)
|
|
(do ((num 2 (+ num 1))
|
|
(fib-prev 1 fib)
|
|
(fib 1 (+ fib fib-prev)))
|
|
((>= num n) fib)))
|