2013-04-28 16:31:31 +02:00
|
|
|
;; hello, rHy!
|
2013-03-20 05:37:43 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn fib [n]
|
|
|
|
|
(if (<= n 2) n
|
2013-04-28 16:31:31 +02:00
|
|
|
(+ (fib (- n 1)) (fib (- n 2)))))
|
2013-03-20 05:37:43 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn main [argv]
|
|
|
|
|
(for [x [1 2 3 4 5 6 7 8]]
|
|
|
|
|
(print (fib x)))
|
|
|
|
|
0)
|
