basis/random/mersenne-twister/mersenne-twister-tests.factor

   1 USING: kernel math random namespaces make
   2 random.mersenne-twister sequences tools.test math.order ;
   3 IN: random.mersenne-twister.tests
   4
   5 : check-random ( max -- ? )
   6     dup >r random 0 r> between? ;
   7
   8 [ t ] [ 100 [ drop 674 check-random ] all? ] unit-test
   9
  10 : make-100-randoms
  11     [ 100 [ 100 random , ] times ] { } make ;
  12
  13 : test-rng ( seed quot -- )
  14     >r <mersenne-twister> r> with-random ;
  15
  16 [ f ] [ 1234 [ make-100-randoms make-100-randoms = ] test-rng ] unit-test
  17
  18 [ 1333075495 ] [
  19     0 [ 1000 [ drop random-generator get random-32* drop ] each random-generator get random-32* ] test-rng
  20 ] unit-test
  21
  22 [ 1575309035 ] [
  23     0 [ 10000 [ drop random-generator get random-32* drop ] each random-generator get random-32* ] test-rng
  24 ] unit-test
  25
  26
  27 [ 3 ] [ 101 [ 3 random-bytes length ] test-rng ] unit-test
  28 [ 33 ] [ 101 [ 33 random-bytes length ] test-rng ] unit-test
  29 [ t ] [ 101 [ 100 random-bits log2 90 > ] test-rng ] unit-test