laplace-random* ( mean scale rnd -- n )

Vocabulary

random

Inputs

mean	an object
scale	an object
rnd	an object

Outputs

n

an object

Definition

USING: kernel math math.functions ;

IN: random

: laplace-random* ( mean scale rnd -- n )
    random-unit* dup 0.5 <
    [ 2 * log ] [ 1 swap - 2 * log neg ] if * + ;