nweave ( n -- quot )
Factor handbook » The language » Combinators » Generalized shuffle words and combinators » Generalized shuffle words

Prev:

mnswap ( m n -- quot )

Vocabulary
generalizations

Inputs

n	an integer

Outputs
None

Word description
Copies the top n stack elements underneath each one of the n elements below.

Examples

USING: arrays kernel generalizations prettyprint ; "e1" "e2" "o1" "o2" 2 nweave [ 3array ] 3dip 3array 2array .
{ { "e1" "o1" "o2" } { "e2" "o1" "o2" } }

Definition

USING: kernel sequences ;

IN: generalizations

MACRO: nweave ( n -- quot )
    [ dup <iota> <reversed> [ [ mnswap ] 2curry ] with map ]
    keep [ ncleave ] 2curry ;