X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/e5c5cbd9d48ecf8de5e7b0c20d7164b4b7bf340b..1a8dd46727a20bad8164af908ad027eac6abc6cc:/program/ProposalMatcher.hs

diff --git a/program/ProposalMatcher.hs b/program/ProposalMatcher.hs
index 15e551d..e093a13 100644
--- a/program/ProposalMatcher.hs
+++ b/program/ProposalMatcher.hs
@@ -66,7 +66,7 @@ doReduction cfg (PMInstance numRvrs numProps rloadA prefA expA fixA pnrA) =
 		totalRelativeLoad = foldl (+) 0 (map (rloadA !) [0 .. numRvrs - 1])
 		-- floor goes best with loadTolerance 2
 		targetLoad i = floor (widenInteger totalReviews * (rloadA ! i) / totalRelativeLoad) - 1
-		-- A...H refer to idea book p.429
+		-- Edge groups A through H are indicated in the figure in the paper.
 		edgesABC = do
 			i <- [0 .. numRvrs - 1]
 			let tl = targetLoad i