<flipped> ( seq -- seq' )
Column sequences

Prev:

<column> ( seq col -- column )

Vocabulary
columns

Inputs

seq	a sequence

Outputs

seq'	a sequence

Word description
Outputs a new virtual sequence which presents the transpose of seq.

Notes
This is the virtual sequence equivalent of flip.

Definition

USING: kernel sequences ;

IN: columns

: <flipped> ( seq -- seq' )
    dup empty?
    [ dup first length [ <column> ] with map-integers ] unless ;