September Morn Update

Task/Fibonacci-sequence/Clojure/fibonacci-sequence-9.clj

@@ -1,16 +1,8 @@
-(ns fib.core)
-(require '[clojure.core.async
-           :refer [<! >! >!! <!! timeout chan alt! go]])
-
-(defn fib [c]
-  (loop [a 0 b 1]
-    (>!! c a)
-    (recur b (+ a b))))
-
-
-(defn -main []
-  (let [c (chan)]
-    (go (fib c))
-    (dorun
-      (for [i (range 10)]
-        (println (<!! c))))))
+(def fib
+  (memoize
+    (fn [n]
+      (case n
+        0 0
+        1 1
+        (+ (fib (- n 1))
+           (fib (- n 2)))))))