30 lines
921 B
Factor
30 lines
921 B
Factor
|
USING: kernel math random namespaces random.mersenne-twister
|
||
|
|
sequences tools.test math.order ;
|
||
|
|
IN: random.mersenne-twister.tests
|
||
|
|
|
||
|
|
: check-random ( max -- ? )
|
||
|
|
dup >r random 0 r> between? ;
|
||
|
|
|
||
|
|
[ t ] [ 100 [ drop 674 check-random ] all? ] unit-test
|
||
|
|
|
||
|
|
: make-100-randoms
|
||
|
|
[ 100 [ 100 random , ] times ] { } make ;
|
||
|
|
|
||
|
|
: test-rng ( seed quot -- )
|
||
|
|
>r <mersenne-twister> r> with-random ;
|
||
|
|
|
||
|
|
[ f ] [ 1234 [ make-100-randoms make-100-randoms = ] test-rng ] unit-test
|
||
|
|
|
||
|
|
[ 1333075495 ] [
|
||
|
|
0 [ 1000 [ drop random-generator get random-32* drop ] each random-generator get random-32* ] test-rng
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ 1575309035 ] [
|
||
|
|
0 [ 10000 [ drop random-generator get random-32* drop ] each random-generator get random-32* ] test-rng
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
|
||
|
|
[ 3 ] [ 101 [ 3 random-bytes length ] test-rng ] unit-test
|
||
|
|
[ 33 ] [ 101 [ 33 random-bytes length ] test-rng ] unit-test
|
||
|
|
[ t ] [ 101 [ 100 random-bits log2 90 > ] test-rng ] unit-test
|