43 lines
756 B
Factor
43 lines
756 B
Factor
|
! Copyright (C) 2009 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: arrays kernel random random.cmwc sequences tools.test ;
|
||
|
|
IN: random.cmwc.tests
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
cmwc-4096 [
|
||
|
|
random-32 drop
|
||
|
|
] with-random
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
4294604858
|
||
|
|
4294948512
|
||
|
|
4294929730
|
||
|
|
4294910948
|
||
|
|
4294892166
|
||
|
|
4294873384
|
||
|
|
4294854602
|
||
|
|
4294835820
|
||
|
|
4294817038
|
||
|
|
4294798256
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
cmwc-4096
|
||
|
|
4096 iota >array seed-random [
|
||
|
|
10 [ random-32 ] replicate
|
||
|
|
] with-random
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ t ] [
|
||
|
|
cmwc-4096
|
||
|
|
4096 iota >array seed-random [
|
||
|
|
10 [ random-32 ] replicate
|
||
|
|
] with-random
|
||
|
|
|
||
|
|
cmwc-4096
|
||
|
|
4096 iota >array seed-random [
|
||
|
|
10 [ random-32 ] replicate
|
||
|
|
] with-random =
|
||
|
|
] unit-test
|