rebalance-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 trees.private ;

IN: trees.avl.private

: rebalance-delete ( node -- node shorter? )
    dup balance>> {
        { [ dup zero? ] [ drop t ] }
        {
            [ dup abs 2 = ]
            [ sgn neg [ delete-select-rotate ] with-side ]
        }
        [ drop f ]
    } cond ;