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

random.mersenne-twister: fix non-random bias.

db4
John Benediktsson 2014-02-07 07:31:53 -08:00
parent fb9c5f9aee
commit 0110bd49f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/random/mersenne-twister/mersenne-twister.factor
View File

@ -31,7 +31,7 @@ CONSTANT: a uint-array{ 0 0x9908b0df }
[ [
seq>> seq>>
[ [ n m - ] dip '[ [ m ] dip _ mt[k] ] each-integer ] [ [ n m - ] dip '[ [ m ] dip _ mt[k] ] each-integer ]
[ [ m 1 - ] dip '[ [ m n - ] [ n m - + ] bi* _ mt[k] ] each-integer ] [ [ m ] dip '[ [ m n - ] [ n m - + ] bi* _ mt[k] ] each-integer ]
bi bi
] [ 0 >>i drop ] bi ; inline ] [ 0 >>i drop ] bi ; inline