30 lines
665 B
Factor
30 lines
665 B
Factor
USING: kernel math tools.test namespaces random
|
|
random.blum-blum-shub alien.c-types sequences splitting
|
|
grouping ;
|
|
IN: blum-blum-shub.tests
|
|
|
|
{ 887708070 } [
|
|
T{ blum-blum-shub f 590695557939 811977232793 } clone random-32*
|
|
] unit-test
|
|
|
|
|
|
{ 887708070 } [
|
|
T{ blum-blum-shub f 590695557939 811977232793 } clone [
|
|
32 random-bits
|
|
] with-random
|
|
] unit-test
|
|
|
|
{ 3812677130378646276 } [
|
|
T{ blum-blum-shub f 590695557939 811977232793 } clone [
|
|
64 random-bits
|
|
] with-random
|
|
] unit-test
|
|
|
|
{ 3716213681 }
|
|
[
|
|
T{ blum-blum-shub f 200352954495 846054538649 } clone 100 over [
|
|
random-32* drop
|
|
] curry times
|
|
random-32*
|
|
] unit-test
|