Matt McCutchen's Web Site
/
match
/
match.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make PMatching a newtype for clarity.
[match/match.git]
/
program
/
Evaluation.hs
diff --git
a/program/Evaluation.hs
b/program/Evaluation.hs
index
032a1a9
..
f69668d
100644
(file)
--- a/
program/Evaluation.hs
+++ b/
program/Evaluation.hs
@@
-10,7
+10,7
@@
import ArrayStuff
type MatchingEvaluation = Array Int Wt
evaluateMatching :: PMConfig -> PMInstance -> PMatching -> MatchingEvaluation
type MatchingEvaluation = Array Int Wt
evaluateMatching :: PMConfig -> PMInstance -> PMatching -> MatchingEvaluation
-evaluateMatching cfg inst@(PMInstance numRvrs numProps rloadA prefA)
matching
=
+evaluateMatching cfg inst@(PMInstance numRvrs numProps rloadA prefA)
(PMatching matching)
=
let reviewersByProposal = accumArray (flip (:)) []
(0, numProps-1) $ map (\(i,j) -> (j,i)) matching
:: Array Int [Int] in
let reviewersByProposal = accumArray (flip (:)) []
(0, numProps-1) $ map (\(i,j) -> (j,i)) matching
:: Array Int [Int] in