chopsticks for philosophers.clj

(defstruct chopstick :id :holder)
(defstruct philosopher :name :left-stick :right-stick)

(defn make-chopstick [id]
  (struct chopstick id (ref "")))

(defn set-table [philosophers]
  (let [stick-count (max 2 (count philosophers))
        stick-seq (map make-chopstick (range stick-count))
        stick-cycle (cycle (take stick-count stick-seq))]
    (map (fn [name [left right]] (struct philosopher name left right))
         philosophers
         (partition 2 1 stick-cycle))))