balance-delete ( node -- node shorter? )

Vocabulary

trees.avl.private

Inputs

node

an object

Outputs

node	an object
shorter?	an object

Definition

USING: accessors combinators kernel math namespaces
trees.private ;

IN: trees.avl.private

: balance-delete ( node -- node shorter? )
    current-side get over balance>> {
        { [ dup zero? ] [ drop neg >>balance f ] }
        { [ 2dup = ] [ 2drop 0 >>balance t ] }
        [ drop neg increase-balance rebalance-delete ]
    } cond ;