affinity-misses ( affinities colors -- n )

Vocabulary

compiler.cfg.register-allocation.chordal

Inputs

affinities	an object
colors	an object

Outputs

n

an object

Definition

USING: assocs kernel math sequences ;

IN: compiler.cfg.register-allocation.chordal

:: affinity-misses ( affinities colors -- n )
    affinities >alist [| pair |
        pair first colors at :> color pair second
        [ colors at color = not ] count
    ] map-sum 2 / ;