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

Vocabulary

random.private

Inputs

alpha	an object
beta	an object

Outputs

n

an object

Definition

USING: kernel math math.functions random ;

IN: random.private

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