7 lines
188 B
Text
7 lines
188 B
Text
(define fib
|
|
N -> (let A (/. A N
|
|
(if (< N 2)
|
|
N
|
|
(+ (A A (- N 2))
|
|
(A A (- N 1)))))
|
|
(A A N)))
|