inorder ( node quot: ( data -- ) -- )

Vocabulary

rosetta-code.tree-traversal

Inputs

node	an object
quot	a quotation with stack effect ( data -- )

Outputs

None

Definition

USING: accessors kernel ;

IN: rosetta-code.tree-traversal

: inorder ( node quot: ( data -- ) -- )
    [ [ left>> ] dip over [ inorder ] [ 2drop ] if ]
    [ [ data>> ] dip call ]
    [ [ right>> ] dip over [ inorder ] [ 2drop ] if ] 2tri ;
    inline recursive