Lotsa advocaat

core.clj

(def containers [50 44 11 49 42 46 18 32 26 40 21 7 18 43 10 47 36 24 22 40])


(defn distribute [volume containers filled]
  (let [first-c (first containers)
        left-over (- volume (or first-c 0))]
    (println volume first-c filled)
    (cond
      (nil? first-c) nil
      (neg? left-over) (recur volume (rest containers) filled)
      (zero? left-over) (conj filled first-c)
      (pos? left-over) (recur left-over (rest containers) (conj filled first-c)))))