7 lines
130 B
Text
7 lines
130 B
Text
|
(define fib
|
||
|
|
0 -> 0
|
||
|
|
1 -> 1
|
||
|
|
N -> (+ (fib (+ N 1)) (fib (+ N 2)))
|
||
|
|
where (< N 0)
|
||
|
|
N -> (+ (fib (- N 1)) (fib (- N 2))))
|