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-1.clj
+++ b/Task/Knapsack-problem-Unbounded/Clojure/knapsack-problem-unbounded-1.clj
@ -0,0 +1,9 @@
+(defstruct item :value :weight :volume)
+
+(defn total [key items quantities]
+  (reduce + (map * quantities (map key items))))
+
+(defn max-count [item max-weight max-volume]
+  (let [mcw (/ max-weight (:weight item))
+        mcv (/ max-volume (:volume item))]
+    (min mcw mcv)))