roll-quot ( string -- quot: ( -- n ) )

Vocabulary

dice

Inputs

string

an object

Outputs

quot	a quotation with stack effect ( -- n )

Definition

USING: kernel math ;

IN: dice

: roll-quot ( string -- quot: ( -- n ) )
    parse-roll
    [ '[ _ _ random-roll _ + ] ] [ '[ _ _ random-roll ] ] if* ;