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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-05-06 22:05:16 -05:00
parent 4915e1ced7 c9d669d606
commit 88b3be034d
1 changed files with 6 additions and 3 deletions
basis/random

9
basis/random/random.factor
View File

@ -3,7 +3,7 @@
USING: alien.c-types kernel math namespaces sequences USING: alien.c-types kernel math namespaces sequences
io.backend io.binary combinators system vocabs.loader io.backend io.binary combinators system vocabs.loader
summary math.bitwise byte-vectors fry byte-arrays summary math.bitwise byte-vectors fry byte-arrays
math.ranges math.constants math.functions ; math.ranges math.constants math.functions accessors ;
IN: random IN: random
SYMBOL: system-random-generator SYMBOL: system-random-generator
@ -70,8 +70,11 @@ PRIVATE>
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 )
64 random-bits >float [ over - 2.0 -64 ^ * ] dip 4 random-bytes underlying>> *uint >float
* + ; 4 random-bytes underlying>> *uint >float
2.0 32 ^ * +
[ over - 2.0 -64 ^ * ] dip
* + ; inline
: normal-random-float ( mean sigma -- n ) : normal-random-float ( mean sigma -- n )
0.0 1.0 uniform-random-float 0.0 1.0 uniform-random-float