ntuckd ( ntuck ndip -- quot )


Vocabulary
shuffle

Inputs
ntuckan object
ndipan object


Outputs
quotan object


Definition
USING: generalizations kernel math ;

IN: shuffle

MACRO: ntuckd ( ntuck ndip -- quot )
[ 1 + ] dip [ [ [ dup ] ] dip [ -nrot ] curry compose ] dip
[ ndip ] 2curry ;