A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Knapsack-problem-Unbounded/Clojure/knapsack-problem-unbounded-4.clj
+++ b/Task/Knapsack-problem-Unbounded/Clojure/knapsack-problem-unbounded-4.clj
@ -0,0 +1,8 @@
+(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)))