gamma-random* ( alpha beta rnd -- n )

Vocabulary

random

Inputs

alpha	an object
beta	an object
rnd	an object

Outputs

n

an object

Definition

USING: combinators kernel math random.private ;

IN: random

: gamma-random* ( alpha beta rnd -- n )
    {
        { [ pick 1 > ] [ (gamma-random>1) ] }
        { [ pick 1 = ] [ (gamma-random=1) ] }
        [ (gamma-random<1) ]
    } cond ;