Data commit

Task/Synchronous-concurrency/Clojure/synchronous-concurrency-1.clj

@@ -0,0 +1,7 @@
+(use '[clojure.java.io :as io])
+
+(def writer (agent 0))
+
+(defn write-line [state line]
+  (println line)
+  (inc state))

Task/Synchronous-concurrency/Clojure/synchronous-concurrency-2.clj

@@ -0,0 +1,6 @@
+(with-open [r (io/reader "input.txt")]
+  (doseq [line (line-seq r)]
+    (send writer write-line line)))
+(await writer)
+(println "lines written:" @writer)
+(shutdown-agents)