31 lines
799 B
Factor
31 lines
799 B
Factor
USING: kernel math tools.test namespaces random
|
|
random.blum-blum-shub alien.c-types sequences splitting ;
|
|
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
|
|
little-endian? [ <uint> reverse *uint ] unless
|
|
] with-random
|
|
] unit-test
|
|
|
|
[ 5726770047455156646 ] [
|
|
T{ blum-blum-shub f 590695557939 811977232793 } clone [
|
|
64 random-bits
|
|
little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless
|
|
] with-random
|
|
] unit-test
|
|
|
|
[ 3716213681 ]
|
|
[
|
|
100 T{ blum-blum-shub f 200352954495 846054538649 } clone tuck [
|
|
random-32* drop
|
|
] curry times
|
|
random-32*
|
|
] unit-test
|