round-robin ( seq -- newseq )

Vocabulary

sequences.extras

Inputs

seq	a sequence

Outputs

newseq

a sequence

Word description

List all elements of seq in column-major order.

Definition

USING: kernel sequences ;

IN: sequences.extras

: round-robin ( seq -- newseq )
    [ { } ] [
        [ longest length <iota> ] keep
        [ [ ?nth ] with map ] curry map concat sift
    ] if-empty ;