(random-roll) ( #dice #sides rnd -- n )

Vocabulary

dice

Inputs

#dice	an object
#sides	an object
rnd	an object

Outputs

n

an object

Definition

USING: kernel math random ;

IN: dice

: (random-roll) ( #dice #sides rnd -- n )
    [ 0 ] 3dip [ random* + 1 + ] 2curry times ;