1 USING: kernel math tools.test namespaces random
2 random.blum-blum-shub alien.c-types sequences splitting
4 IN: blum-blum-shub.tests
7 T{ blum-blum-shub f 590695557939 811977232793 } clone random-32*
12 T{ blum-blum-shub f 590695557939 811977232793 } clone [
14 little-endian? [ <uint> reverse *uint ] unless
18 [ 5726770047455156646 ] [
19 T{ blum-blum-shub f 590695557939 811977232793 } clone [
21 little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless
27 100 T{ blum-blum-shub f 200352954495 846054538649 } clone tuck [