flatten1 ( obj -- seq )

Vocabulary

sequences.deep

Inputs

obj

an object

Outputs

seq

an object

Definition

USING: kernel make sequences ;

IN: sequences.deep

: flatten1 ( obj -- seq )
    [
        [
            dup branch?
            [ [ dup branch? [ % ] [ , ] if ] each ] [ , ] if
        ]
    ] keep dup branch? [ drop f ] unless make ;