ntuckd ( ntuck ndip -- quot )

Vocabulary

shuffle

Inputs

ntuck	an object
ndip	an object

Outputs

quot

an object

Definition

USING: generalizations kernel math ;

IN: shuffle

MACRO: ntuckd ( ntuck ndip -- quot )
    [ 1 + ] dip '[ [ dup _ -nrot ] _ ndip ] ;