steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix blum blum shub tests

db4
Doug Coleman 2008-09-09 19:14:56 -05:00
parent 70c91ffad1
commit 0f8c6bfd83
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/random/blum-blum-shub/blum-blum-shub-tests.factor
View File

@ -8,14 +8,14 @@ IN: blum-blum-shub.tests
] unit-test ] unit-test
[ 887708070 ] [ [ 70576473 ] [
T{ blum-blum-shub f 590695557939 811977232793 } clone [ T{ blum-blum-shub f 590695557939 811977232793 } clone [
32 random-bits 32 random-bits
little-endian? [ <uint> reverse *uint ] unless little-endian? [ <uint> reverse *uint ] unless
] with-random ] with-random
] unit-test ] unit-test
[ 5726770047455156646 ] [ [ 5570804936418322777 ] [
T{ blum-blum-shub f 590695557939 811977232793 } clone [ T{ blum-blum-shub f 590695557939 811977232793 } clone [
64 random-bits 64 random-bits
little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless