mntuckd ( ndup depth ndip -- quot )

Vocabulary

shuffle

Inputs

ndup	an object
depth	an object
ndip	an object

Outputs

quot

an object

Definition

USING: combinators kernel math ;

IN: shuffle

MACRO: mntuckd ( ndup depth ndip -- quot )
    { [ nip ] [ 2drop ] [ drop + ] [ 2nip ] } 3cleave
    '[ _ _ ndupd _ _ _ -nrotated ] ;