http://en.wikipedia.org/wiki/Sleeping_barber_problem

sleeping-barber.clj

(require '[clojure.core.async :as async :refer :all])

(defn customer [i ch]
  (go (>! ch i)))

(defn barber [ch]
  (go (while true
        (println "cuts hair of " (<! ch)))))

(let
  [ch (chan (dropping-buffer 3))]
  (barber ch)
  (dotimes [i 1000]
    (customer i ch)))

Trik je v tom, že holičství jako takové je kanál a čekárna v něm jeho buffer. Vzhledem k tomu, že když je čekárná plná, další nebereme, je buffer dropping. Když není holičství kanálu žádný zákazník, holič spí.