steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

random: 1 swap - was redundant.

John Benediktsson 2012-03-30 17:57:40 -07:00
parent 273bc939c7
commit ac0002f0ae
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/random/random.factor
View File

@ -115,13 +115,13 @@ ERROR: too-many-samples seq n ;
normal-random-float exp ;
: exponential-random-float ( lambda -- n )
0. 1. uniform-random-float 1 swap - log neg swap / ;
0. 1. uniform-random-float log neg swap / ;
: weibull-random-float ( lambda k -- n )
[ 0. 1. uniform-random-float 1 swap - log neg ] dip 1. swap / ^ * ;
[ 0. 1. uniform-random-float log neg ] dip 1. swap / ^ * ;
: pareto-random-float ( alpha -- n )
[ 0. 1. uniform-random-float 1 swap - ] dip [ 1. swap / ] bi@ ^ ;
[ 0. 1. uniform-random-float ] dip [ 1. swap / ] bi@ ^ ;
: beta-random-float ( alpha beta -- n )
[ 1. normal-random-float ] dip over zero?