levelorder2 ( node quot: ( data -- ) -- )

Vocabulary

rosetta-code.tree-traversal

Inputs

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

Outputs

None

Definition

USING: accessors deques dlists kernel ;

IN: rosetta-code.tree-traversal

: levelorder2 ( node quot: ( data -- ) -- )
    [ 1dlist ] dip [ dup deque-empty? not ] swap
    [ [ data>> ] ] dip compose [ [ dup pop-front ] ] dip [
        [ left>> [ over push-back ] when* ]
        [ right>> [ over push-back ] when* ] tri
    ] curry compose while drop ; inline