9 lines
245 B
Plaintext
9 lines
245 B
Plaintext
|
(def! fib (fn* (n) (cond (= 0 n) 0
|
||
|
|
(= 1 n) 1
|
||
|
|
true (+ (fib (- n 1)) (fib (- n 2))))))
|
||
|
|
(def! main (fn* ()
|
||
|
|
(do
|
||
|
|
(let* (n 27)
|
||
|
|
(println "Fib(" n "): " (fib n)))
|
||
|
|
0)))
|