exchange-benefit ( component first-color second-color affinities colors -- benefit )

Vocabulary

compiler.cfg.register-allocation.chordal

Inputs

component	an object
first-color	an object
second-color	an object
affinities	an object
colors	an object

Outputs

benefit

an object

Definition

USING: assocs kernel math sequences ;

IN: compiler.cfg.register-allocation.chordal

:: exchange-benefit
    ( component first-color second-color affinities colors -- benefit )
    component keys [| vertex |
        vertex colors at
        :> before before first-color second-color
        exchanged-color :> after vertex affinities at
        [ component key? ] reject [| partner |
            partner colors at :> other after other = 1 0 ?
            before other = 1 0 ? -
        ] map-sum
    ] map-sum ;