-module InstanceGenerator where
-import Instance
+module PMInstanceGenerator where
+import PMInstance
import System.Random
import RandomizedMonad
import Data.Array.IArray
else if expertness == 1 then 5
else 3
-randomInstance :: Int -> Int -> Randomized Instance
+randomInstance :: Int -> Int -> Randomized PMInstance
randomInstance numRvrs numProps = do
reviewerInfos <- indRandomArray (0, numRvrs-1) $ randomReviewerInfo numProps
:: Randomized (Array Int ReviewerInfo)
PTopic2 jt1 jt2 -> (expertnessToPref (iTE ! jt1)
+ expertnessToPref (iTE ! jt2)) / 2
in if isConflict then 40 else topicPref * jD - 4)
- return $ Instance numRvrs numProps loadA prefA
+ return $ PMInstance numRvrs numProps loadA prefA