fill-one-bucket.clj

(defn ^:private fill-one-bucket
  "Takes the quantity bucket-vol from a sorted-set of elements to verse
   Returns a filled bucket and the remaining quantities"
  [to-verse bucket-vol]
  (let [[min-vol min-value :as min-dist] (first to-verse)
        [max-vol max-value :as max-dist] (last to-verse)
        fill-bucket [min-value max-value (/ min-vol bucket-vol)]
        rest-vol (- max-vol (- bucket-vol min-vol))
        to-verse (disj to-verse min-dist max-dist)
        to-verse (if (pos? rest-vol)
                   (conj to-verse [rest-vol max-value])
                   to-verse)]
    [fill-bucket to-verse]))