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

random.mersenne-twister: Don't use system-random-generator to initialize 

Mersenne Twister. If there is no system random generator, startup can
fail.
db4
Doug Coleman 2014-02-14 18:48:25 -08:00
parent e9e4115de1
commit 48562e6e48
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/mersenne-twister/mersenne-twister.factor
View File

@ -4,7 +4,7 @@
! http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c ! http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c
USING: accessors alien.c-types alien.data fry init kernel math USING: accessors alien.c-types alien.data fry init kernel math
math.bitwise namespaces random sequences sequences.private math.bitwise namespaces random sequences sequences.private
specialized-arrays ; specialized-arrays system ;
SPECIALIZED-ARRAY: uint SPECIALIZED-ARRAY: uint
IN: random.mersenne-twister IN: random.mersenne-twister
@ -74,7 +74,7 @@ M: mersenne-twister random-32*
[ [ 1 + ] change-i drop ] tri ; [ [ 1 + ] change-i drop ] tri ;
: default-mersenne-twister ( -- mersenne-twister ) : default-mersenne-twister ( -- mersenne-twister )
[ random-32 ] with-system-random <mersenne-twister> ; nano-count <mersenne-twister> ;
[ [
default-mersenne-twister random-generator set-global default-mersenne-twister random-generator set-global