Skip to content
Browse files

Always apply the entire budget

  • Loading branch information...
1 parent e735a6d commit c3f754e1e03721f347190a763e78d0ec45365e34 @lvh committed Mar 7, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/hood/constraint.clj
View
2 src/hood/constraint.clj
@@ -9,7 +9,7 @@
[apps budget target]
(let [allocs (for [a apps] [:allocation a])
grant-constraints (map #($in [:allocation %] 0 (:requested %)) apps)
- within-budget ($<= (apply $+ allocs) budget)
+ within-budget ($= (apply $+ allocs) budget)
constraints (conj grant-constraints within-budget)]
(solution constraints :maximize target)))

0 comments on commit c3f754e

Please sign in to comment.
Something went wrong with that request. Please try again.