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

random: speed up uniform-random-float.

db4
John Benediktsson 2013-02-27 14:40:56 -08:00
parent 8a5411cfc1
commit b47a737321
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/random/random.factor
View File

@ -28,7 +28,8 @@ M: object random-bytes* ( n tuple -- byte-array )
HINTS: M\ object random-bytes* { fixnum object } ; HINTS: M\ object random-bytes* { fixnum object } ;
M: object random-32* ( tuple -- r ) 4 swap random-bytes* be> ; M: object random-32* ( tuple -- r )
4 swap random-bytes* c:uint deref ;
ERROR: no-random-number-generator ; ERROR: no-random-number-generator ;
@ -121,7 +122,7 @@ ERROR: too-many-samples seq n ;
<PRIVATE <PRIVATE
: (uniform-random-float) ( min max obj -- n ) : (uniform-random-float) ( min max obj -- n )
[ 4 4 ] dip [ random-bytes* c:uint deref >float ] curry bi@ [ random-32* ] keep random-32* [ >float ] bi@
2.0 32 ^ * + 2.0 32 ^ * +
[ over - 2.0 -64 ^ * ] dip [ over - 2.0 -64 ^ * ] dip
* + ; inline * + ; inline