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

fix seed-random for cmwc

db4
Doug Coleman 2009-10-07 20:25:00 -05:00
parent 357bd0b3ec
commit 8ad1bab8ad
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/random/cmwc/cmwc-tests.factor
View File

@ -24,7 +24,7 @@ IN: random.cmwc.tests
} }
] [ ] [
cmwc-4096 cmwc-4096
4096 iota >array seed-random [ 4096 iota >array 362436 <cmwc-seed> seed-random [
10 [ random-32 ] replicate 10 [ random-32 ] replicate
] with-random ] with-random
] unit-test ] unit-test
@ -35,7 +35,7 @@ IN: random.cmwc.tests
10 [ random-32 ] replicate 10 [ random-32 ] replicate
] with-random ] with-random
] [ ] [
4096 iota >array 362436 <cmwc-seed seed-random [ 4096 iota >array 362436 <cmwc-seed> seed-random [
10 [ random-32 ] replicate 10 [ random-32 ] replicate
] with-random ] with-random
] bi = ] bi =

5
extra/random/cmwc/cmwc.factor
View File

@ -48,4 +48,7 @@ M:: cmwc random-32* ( cmwc -- n )
: cmwc-4096 ( -- cmwc ) : cmwc-4096 ( -- cmwc )
4096 4096
[ 18782 4294967295 362436 <cmwc> ] [ 18782 4294967295 362436 <cmwc> ]
[ '[ [ random-32 ] replicate ] with-system-random seed-random ] bi ; [
'[ [ random-32 ] replicate ] with-system-random
362436 <cmwc-seed> seed-random
] bi ;