- sum $ zipWith (\wt prf -> (numAsWt wt) * assignmentCost cfg prf)
- -- The assignment costs are weighted by
- -- reviewsEachProposal, ..., 1 from best to worst.
- -- (It's most important for the best to be good.)
- (take (reviewsEachProposal cfg) $
- iterate (subtract 1) (reviewsEachProposal cfg))