Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Accumulator-factory/Clojure/accumulator-factory-1.clj
+++ b/Task/Accumulator-factory/Clojure/accumulator-factory-1.clj
@ -0,0 +1,3 @@
+(defn accum [n]
+  (let [acc (atom n)]
+    (fn [m] (swap! acc + m))))
--- a/Task/Accumulator-factory/Clojure/accumulator-factory-2.clj
+++ b/Task/Accumulator-factory/Clojure/accumulator-factory-2.clj
@ -0,0 +1,3 @@
+(defn accum [n]
+  (let [acc (ref n)]
+    #(dosync (alter acc + %))))