keyvanakbary · March 13, 2016 20:57
diff --git a/stateful-accumulator.clj b/stateful-accumulator.clj
 (defn make-acumulator [value]
  (def acc (atom value))
  (fn [add]
    (swap! acc #(+ % add))
    @acc))

 (def a (make-acumulator 10))

 (a 10)
 ;20

 (a 10)
 ;30
	(defn make-acumulator [value]
	(def acc (atom value))
	(fn [add]
	(swap! acc #(+ % add))
	@acc))

	(def a (make-acumulator 10))

	(a 10)
	;20

	(a 10)
	;30