8 lines
188 B
Text
8 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)))
|