6 lines
128 B
Scheme
6 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)))
|