nrotated ( nrots depth dip -- quot )

Vocabulary

shuffle

Inputs

nrots	an object
depth	an object
dip	an object

Outputs

quot

an object

Definition

USING: generalizations kernel sequences ;

IN: shuffle

MACRO: nrotated ( nrots depth dip -- quot )
    [ '[ [ _ nrot ] ] replicate [ ] concat-as ] dip
    '[ _ _ ndip ] ;