8 lines
187 B
Clojure
8 lines
187 B
Clojure
(defn all-best-by-value [ks]
|
|
(let [b (best-by-value ks)]
|
|
(filter #(= (:value b) (:value %)) ks)))
|
|
|
|
(defn print-knapsacks [ks]
|
|
(doseq [k ks]
|
|
(print-knapsack k)
|
|
(println)))
|