29 lines
598 B
Factor
29 lines
598 B
Factor
|
USING: kernel math tools.test namespaces random
|
||
|
|
random.blum-blum-shub ;
|
||
|
|
IN: blum-blum-shub.tests
|
||
|
|
|
||
|
|
[ 887708070 ] [
|
||
|
|
T{ blum-blum-shub f 590695557939 811977232793 } random-32*
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
|
||
|
|
[ 887708070 ] [
|
||
|
|
T{ blum-blum-shub f 590695557939 811977232793 } [
|
||
|
|
32 random-bits
|
||
|
|
] with-random
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ 5726770047455156646 ] [
|
||
|
|
T{ blum-blum-shub f 590695557939 811977232793 } [
|
||
|
|
64 random-bits
|
||
|
|
] with-random
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ 3716213681 ]
|
||
|
|
[
|
||
|
|
100 T{ blum-blum-shub f 200352954495 846054538649 } tuck [
|
||
|
|
random-32* drop
|
||
|
|
] curry times
|
||
|
|
random-32*
|
||
|
|
] unit-test
|