1 ! Copyright (C) 2009 Doug Coleman.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel random random.sfmt random.sfmt.private
6 ! Period certified by virtue of seed
7 { } [ 5 <sfmt-19937> drop ] unit-test
10 [ 5 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
13 [ 5 <sfmt-19937> random-32* ] unit-test
16 ! Period certified by flipping a bit
17 { } [ 7 <sfmt-19937> drop ] unit-test
20 [ 7 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
23 [ 7 <sfmt-19937> random-32* ] unit-test
26 ! Test re-seeding SFMT
31 [ 100 seed-random random-32* ] bi =