nrotate-heightd ( n height dip -- quot )

Vocabulary

shuffle

Inputs

n	an object
height	an object
dip	an object

Outputs

quot

an object

Definition

USING: generalizations kernel sequences ;

IN: shuffle

MACRO: nrotate-heightd ( n height dip -- quot )
    [ '[ [ _ nrot ] ] replicate concat ] dip '[ _ _ ndip ] ;