double-rotate ( node -- node )

Vocabulary

trees.avl.private

Inputs

node

an object

Outputs

node

an object

Definition

USING: accessors kernel math namespaces trees.private ;

IN: trees.avl.private

: double-rotate ( node -- node )
    [
        node+link [
            node-link current-side get neg over pick-balances
            rot 0 swap balance<<
        ] keep balance<<
    ] 1check >>balance dup node+link [ rotate ] with-other-side
    over set-node+link rotate ;