gistfile1.clj

(defn concurrency-test2 []
  (let [test-atom (atom 0)]
    (letfn [(make-agent []
              (agent 10))
            (run-agent [n]
              (if (zero? n)
                n
                (do
                  (send *agent* run-agent)
                  (swap! test-atom inc)
                  (dec n))))]
      (reset! test-atom 0)
      (let [agents (repeatedly 50 make-agent)]
        (doseq [a agents]
          (send a run-agent))
        (apply await agents))
      (println @test-atom)
      (Thread/sleep 100)
      (println @test-atom))))

(concurrency-test2)
; 199
; 500
;= nil

(concurrency-test2)
; 453
; 500
;= nil

(concurrency-test2)
; 181
; 500
;= nil