assigner.clj

(defn annotate-assignments [apprentices duties]
  (-> apprentices
    (assign-foreman)
    (assign-av av-experienced)
    (assign-av av-novice)
    (assign-all-required-duties duties)
    (assign-all-remaining-apprentices duties)
))

(defn assign [apprentices duties unavailable foreman]
  (-> apprentices
    (annotate-options duties)
    (annotate-foreman foreman)
    (remove-unavailable unavailable)
    (annotate-assignments duties)
))