gistfile1.clj

;; philosophers must be initialized to 0

(defn behave [qty id]
  (when (pos? @rounds) (send-off *agent* behave id))
  (or
    (dosync                           ; Initiate transaction
      (when (and
              (pos? @rounds)     ; Is there more food?
              (> 5 (rand-int 10))      ; Do I want to eat or think?
              (got-forks? id))        ; Are both of my forks available?
        (handle-forks id :take)
        (alter rounds dec)
        (send logger debug id "ate    " @rounds)
        (handle-forks id :release)
        (inc qty)))
    (do
      (send logger debug id "thinks " @rounds)
      qty)))