2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Fibonacci-sequence/Clojure/fibonacci-sequence-9.clj
+++ b/Task/Fibonacci-sequence/Clojure/fibonacci-sequence-9.clj
@ -0,0 +1,16 @@
+(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))))))