preferred-free-color ( free preferences shared -- color )

Vocabulary

compiler.cfg.register-allocation.chordal

Inputs

free	an object
preferences	an object
shared	an object

Outputs

color

an object

Definition

USING: assocs kernel math sequences ;

IN: compiler.cfg.register-allocation.chordal

:: preferred-free-color ( free preferences shared -- color )
    free first :> best! best preferences at 0 or best shared at
    0 or + :> score! free rest-slice [| color |
        color preferences at 0 or color shared at 0 or +
        :> candidate candidate score >
        [ color best! candidate score! ] when
    ] each best ;