fe/scripts/fib.fe

9 lines
97 B
Plaintext

(= fib (fn (n)
(if (<= 2 n)
(+ (fib (- n 1)) (fib (- n 2)))
n
)
))
(print (fib 28))