Anonymous user
Knapsack problem/Continuous: Difference between revisions
→Alternate Version
Line 373:
(defn rob [items capacity]
(let [best-items (reverse (sort-by per-kg items))]
(loop [items best-items
(let [x (first items)]
(if (< (:weight x)
(recur (rest items)
(-
(+ total (:price x))
(str instr "Take all " (:name x) "\n"))
(format "%sTake %.1f kg of %s\nTotal: %.2f"
instr
(print (rob items 15))
| |||