Accumulator by Clojure

gistfile1.clj

(defn accumulator [n]
  (let [i (atom n)]
    (fn [x] (swap! i + x))))


;; user> (doseq [i (range 1 6)] (-> i (* 2) acc println))
;; 2
;; 6
;; 12
;; 20
;; 30
;; nil