start-frequent-changes.clj

;simulates heavy asychronous state change

(defn start-frequent-changes [& some-refs] 
  (let [change (fn [value] 
                 (cond 
                   (pos? value) (inc value) 
                   (neg? value) (dec value) 
                   :else        (identity value)))]
    (doseq [a-ref some-refs] 
      (future (loop [] (Thread/sleep 200) (dosync (alter a-ref change)) (recur)))
      (Thread/sleep 100))))