5 lines
94 B
Text
5 lines
94 B
Text
(define (fib n)
|
|
(let _fib ((a 1) (b 1) (n n))
|
|
(if
|
|
(<= n 1) a
|
|
(_fib b (+ a b) (1- n)))))
|