noverd ( n depth dip -- quot' )


Vocabulary
shuffle

Inputs
nan object
depthan object
dipan object


Outputs
quot'an object


Definition
USING: kernel math ;

IN: shuffle

MACRO: noverd ( n depth dip -- quot' )
[ + ] [ 2drop ] [ [ + ] dip ] 3tri
[ [ [ [ ndupd ] 2curry ] dip ] dip ] dip [ nrotated ] 3curry
compose ;