splay-largest ( node -- node )

Vocabulary

trees.splay.private

Inputs

node

an object

Outputs

node

an object

Definition

USING: accessors kernel ;

IN: trees.splay.private

: splay-largest ( node -- node )
    dup [ dup get-largest key>> swap splay-at ] when ;