trivial? ( node -- ? )

Vocabulary

persistent.vectors.private

Inputs

node

an object

Outputs

?

an object

Definition

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

IN: persistent.vectors.private

: trivial? ( node -- ? )
    { [ level>> 1 > ] [ children>> length 1 = ] } 1&& ;