branch ( a b neg zero pos -- )

Vocabulary

disjoint-sets.private

Inputs

a	an object
b	an object
neg	an object
zero	an object
pos	an object

Outputs

None

Definition

USING: kernel math ;

IN: disjoint-sets.private

:: branch ( a b neg zero pos -- )
    a b = zero [ a b < neg pos if ] if ; inline