-- Solve instances.
module ProposalMatcher,
- module ProposalMatcherConfig,
+ module PMDefaults,
-- Run randomized things.
module System.Random,
import Instance
import InstanceGenerator
import ProposalMatcher
-import ProposalMatcherConfig hiding (Wt)
+import PMDefaults
import System.Random
import RandomizedMonad
bfResult = bellmanFord snd 0 myGraph
-flowArray = minCostFlow (0, 2) fst (const 1) snd myGraph (0, 1)
+flowArray = minCostFlow pmDefaults (0, 2) fst (const 1) snd myGraph (0, 1)
myNCGraph = mkGraph [(0, ())] [(0, 0, -1)] :: Gr () Int
bfNCResult = bellmanFord id 0 myNCGraph
myInst = Instance myNumRvrs myNumProps (constArray (0, myNumRvrs-1) 1) myPrefs
-rdnResult = doReduction myInst
+rdnResult = doReduction pmDefaults myInst
ReductionResult rrg rrso rrsi rreib rredi = rdnResult
-rdnFlowArray = minCostFlow rreib reIdx reCap reCost rrg (rrso, rrsi)
+rdnFlowArray = minCostFlow pmDefaults rreib reIdx reCap reCost rrg (rrso, rrsi)
rrg2 = flowAnnotate rrg rdnFlowArray
-myMatching = doMatching myInst
+myMatching = doMatching pmDefaults myInst
iGraph = showInstanceAsGraph myInst myMatching -- Visualize me!