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

random: 1 swap - was redundant.

db4
John Benediktsson 2012-03-30 17:57:40 -07:00
parent 1e7382b893
commit b23f3f8d56
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 ; normal-random-float exp ;
: exponential-random-float ( lambda -- n ) : 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 ) : 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 ) : 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 ) : beta-random-float ( alpha beta -- n )
[ 1. normal-random-float ] dip over zero? [ 1. normal-random-float ] dip over zero?