RosettaCodeData/Task/Accumulator-factory/Clojure/accumulator-factory-2.clj
2013-04-10 14:58:50 -07:00

3 lines
69 B
Clojure

(defn accum [n]
(let [acc (ref n)]
#(dosync (alter acc + %))))