7l7w-clojure-day-3

sleepy_barber.clj

(ns passingloop.sleepy_barber)

(def rnd (new java.util.Random))
(defn rush [_ chairs]
  (do
    (Thread/sleep (+ 10 (. rnd nextInt 20)))
    (. chairs offer :customer)
    (recur :dummy chairs)))
(defn haircut [_ chairs counter]
  (do
    (. chairs take)
    (Thread/sleep 20)
    (swap! counter inc)
    (recur :dummy chairs counter)))
(defn sleepy-barber []
  (let [chairs (new java.util.concurrent.ArrayBlockingQueue 3)
        counter (atom 0)
        barber (agent 0)
        customers (agent 0)]
    (send barber haircut chairs counter)
    (send customers rush chairs)
    (await-for 10000 barber customers)
    (println (str "cut: " @counter ", barber: " @barber ", customers: " @customers))))

http://passingloop.tumblr.com/post/11404760192/7l7w-clojure-day-3-homework