node-height ( node -- n )

Vocabulary

trees.private

Inputs

node

an object

Outputs

n

an object

Definition

USING: accessors kernel math math.order ;

IN: trees.private

: node-height ( node -- n )
    [ [ left>> ] [ right>> ] bi [ node-height ] bi@ max 1 + ]
    [ 0 ] if* ;