valid-node? ( node -- ? )

Vocabulary

trees.private

Inputs

node

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel math.order ;

IN: trees.private

: valid-node? ( node -- ? )
    [
        {
            [ dup left>> [ key>> swap key>> before? ] when* ]
            [ dup right>> [ key>> swap key>> after? ] when* ]
            [ left>> valid-node? ]
            [ right>> valid-node? ]
        } 1&&
    ] [ t ] if* ;