;; Originally from Josh Comer
(defn fib [n]
(if (<= n 1)
n
(let [a (future (fib (dec n)))
b (fib (- n 2))]
(+ @a b))))
(println (fib 25))
; this is needed to avoid long wait
(shutdown-agents)
;; Originally from Josh Comer
(defn fib [n]
(if (<= n 1)
n
(let [a (future (fib (dec n)))
b (fib (- n 2))]
(+ @a b))))
(println (fib 25))
; this is needed to avoid long wait
(shutdown-agents)