-nrotd ( n d -- quot )

Vocabulary

shuffle

Inputs

n	an object
d	an object

Outputs

quot

an object

Definition

USING: generalizations kernel math ;

IN: shuffle

MACRO: -nrotd ( n d -- quot )
    over 0 <
    [ [ neg ] dip [ nrotd ] 2curry ] [
        [
            1 -
            [ ] [ [ [ swap ] ] dip [ dip ] curry compose ] swapd
            times
        ] dip [ ndip ] 2curry
    ] if ;