power-random* ( alpha rnd -- n )

Vocabulary

random

Inputs

alpha	an object
rnd	an object

Outputs

n

an object

Definition

USING: kernel math math.functions ;

IN: random

: power-random* ( alpha rnd -- n )
    random-unit* log e^ 1 swap - swap recip ^ ;