mntuckd ( ndup depth ndip -- quot )


Vocabulary
generalizations

Inputs
ndupan object
depthan object
ndipan object


Outputs
quotan object


Definition
USING: combinators kernel math ;

IN: generalizations

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