[match/match.git] / program / Instance.hs

module Instance where
import Data.Array.IArray
import Data.Array.Unboxed
import ArrayStuff
import Formatter

type Wt = Double -- must implement RealFrac

data Instance = Instance
	Int                 -- numReviewers
	Int                 -- numProposals
	(UArray Int Wt)     -- ! reviewer -> relative load
	(UArray (Int, Int) Wt) -- ! (reviewer, proposal) -> pref
	deriving Eq

instance Show Instance where
	show (Instance numRvrs numProps loadA prefA) =
		"Instance: " ++ show numRvrs ++ " reviewers, " ++ show numProps ++ " proposals\n"
		++ "Reviewer relative load: " ++ show loadA ++ "\n"
		++ "Preferences:\n"
		++ formatTable (array2DtoListOfLists (amap2 show prefA :: Array (Int, Int) String))
Commit	Line	Data
967c39ef MM	1	module Instance where
	2	import Data.Array.IArray
	3	import Data.Array.Unboxed
	4	import ArrayStuff
	5	import Formatter
	6
	7	type Wt = Double -- must implement RealFrac
	8
	9	data Instance = Instance
	10	Int -- numReviewers
	11	Int -- numProposals
	12	(UArray Int Wt) -- ! reviewer -> relative load
	13	(UArray (Int, Int) Wt) -- ! (reviewer, proposal) -> pref
	14	deriving Eq
	15
	16	instance Show Instance where
	17	show (Instance numRvrs numProps loadA prefA) =
	18	"Instance: " ++ show numRvrs ++ " reviewers, " ++ show numProps ++ " proposals\n"
	19	++ "Reviewer relative load: " ++ show loadA ++ "\n"
	20	++ "Preferences:\n"
	21	++ formatTable (array2DtoListOfLists (amap2 show prefA :: Array (Int, Int) String))