fe/scripts/fib.fe

9 lines
97 B
Plaintext
Raw Normal View History

2019-04-09 20:50:39 +02:00
(= fib (fn (n)
(if (<= 2 n)
(+ (fib (- n 1)) (fib (- n 2)))
n
)
))
(print (fib 28))