X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/d3852a832757336acb3a7cb26c8b274b6c3f5357..578d7d9809c18a096bb1c9a31125abccb79be782:/program/Test.hs

diff --git a/program/Test.hs b/program/Test.hs
index d97edb6..2bb5f54 100644
--- a/program/Test.hs
+++ b/program/Test.hs
@@ -79,7 +79,9 @@ myExps = transposeArray $ listArray ((0,0), (myNumProps-1,myNumRvrs-1)) [
 	] :: UArray (Int, Int) Wt
 
 --myInst = PMInstance myNumRvrs myNumProps (constArray (0, myNumRvrs-1) 1) myPrefs myExps
-myInst = PMInstance myNumRvrs myNumProps (listArray (0, myNumRvrs-1) [1, 1, 1, 0.9, 1]) myPrefs myExps
+myFix = constArray ((0,0), (myNumRvrs-1,myNumProps-1)) False
+myPNR = constArray (0, myNumProps-1) (reviewsEachProposal pmDefaults)
+myInst = PMInstance myNumRvrs myNumProps (listArray (0, myNumRvrs-1) [1, 1, 1, 0.9, 1]) myPrefs myExps myFix myPNR
 
 rdnResult = doReduction pmDefaults myInst
 ReductionResult rrg rrso rrsi rreib rredi = rdnResult