serene-simple/benchmarks/fib.srns

9 lines
119 B
Plaintext
Raw Normal View History

2020-01-02 17:25:33 +00:00
(def fib
(fn (n)
(if (< n 2)
1
(+ (fib (- n 1))
(fib (- n 2))))))
(println (fib 10))