slp-profitable? ( tree -- ? )

Vocabulary

compiler.cfg.slp

Inputs

tree

an object

Outputs

?

an object

Definition

USING: accessors kernel math sequences sets ;

IN: compiler.cfg.slp

:: slp-profitable? ( tree -- ? )
    tree slp-tree-nodes :> nodes nodes
    [ opcode>> >boolean ] filter :> operations nodes
    [ opcode>> not ] filter [ pair>> ] map
    members :> leaves operations [ pair>> ] map
    concat :> removed operations length leaves length 4 * 5 + >
    leaves concat removed intersects? not and ;