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 ] 2curry ] dip [ + ] curry compose ]
    [ [ random-roll ] 2curry ] if* ;