(gamma-random=1) ( alpha beta rnd -- n )

Vocabulary

random.private

Inputs

alpha	an object
beta	an object
rnd	an object

Outputs

n

an object

Definition

USING: kernel math math.functions random ;

IN: random.private

: (gamma-random=1) ( alpha beta rnd -- n )
    random-unit* log neg * nip ;