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

random: don't assume random-bytes is a byte-vector 

It's not anymore.
Joe Groff 2011-11-16 10:03:00 -08:00
parent 16fe44008a
commit 027fc77c36
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/random/random.factor
View File

@ -96,8 +96,8 @@ ERROR: too-many-samples seq n ;
secure-random-generator get swap with-random ; inline secure-random-generator get swap with-random ; inline
: uniform-random-float ( min max -- n ) : uniform-random-float ( min max -- n )
4 random-bytes underlying>> uint deref >float 4 random-bytes uint deref >float
4 random-bytes underlying>> uint deref >float 4 random-bytes uint deref >float
2.0 32 ^ * + 2.0 32 ^ * +
[ over - 2.0 -64 ^ * ] dip [ over - 2.0 -64 ^ * ] dip
* + ; inline * + ; inline