-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 ] ] [
        [ 1 - [ ] [ '[ swap _ dip ] ] swapd times ] dip
        '[ _ _ ndip ]
    ] if ;