- let wExpert = expertCapF j
- -- Yuck, too many kinds of integers.
- let wGeneral = fromInteger wantGeneralReviews +
- fromInteger wantReviewsSubstForExpert *
- (fromInteger wantExpertReviews - wExpert)
- let expertEdges = replicate wExpert (propNode j True, sink, 0)
- let rolloverEdges = replicate wGeneral (propNode j True, propNode j False, 0)
- let generalEdges = replicate wGeneral (propNode j False, sink, 0)
- expertEdges ++ rolloverEdges ++ generalEdges
- theEdges = loadEdges ++ prefEdges ++ wantEdges
+ l <- [0 .. reviewsEachProposal - 1]
+ let edgeF = (propNode j 2, propNode j 1, 0)
+ let edgeG = (propNode j 1, propNode j 0,
+ if l == 0 then -knowledgeableBonus else 0)
+ let edgeH = (propNode j 0, sink, 0)
+ [edgeF, edgeG, edgeH]
+ theNodes = [(x, ()) | x <- [0 .. numNodes - 1]]
+ theEdges = edgesABC ++ edgesD ++ edgesE ++ edgesFGH