aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Synchronous-concurrency/Clojure/synchronous-concurrency-1.clj Normal file
View file

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

6
Task/Synchronous-concurrency/Clojure/synchronous-concurrency-2.clj Normal file
View file

@ -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)