This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.14 in repository libmath-prime-util-perl.
commit 7f8f39573ceb9b2c2968b36f3ebde0b5841aa017 Author: Dana Jacobsen <d...@acm.org> Date: Wed Nov 21 09:08:06 2012 -0800 Update MR bases for deterministic tests --- factor.c | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/factor.c b/factor.c index 2d3d68e..b89ca99 100644 --- a/factor.c +++ b/factor.c @@ -308,17 +308,14 @@ int _XS_is_prob_prime(UV n) } #else #if 1 - /* Better basis from: http://miller-rabin.appspot.com/ */ - /* We could go up to 316_349_281 using 2 bases */ - if (n < UVCONST(9080191)) { - bases[0] = 31; - bases[1] = 73; + /* Better bases from: http://miller-rabin.appspot.com/ */ + if (n < UVCONST(212321)) { + bases[0] = UVCONST(1948244569546278); + nbases = 1; + } else if (n < UVCONST(360018361)) { + bases[0] = UVCONST( 1143370 ); + bases[1] = UVCONST( 2350307676 ); nbases = 2; - } else if (n < UVCONST(4759123141)) { - bases[0] = 2; - bases[1] = 7; - bases[2] = 61; - nbases = 3; } else if (n < UVCONST(105936894253)) { bases[0] = 2; bases[1] = UVCONST( 1005905886 ); @@ -348,7 +345,7 @@ int _XS_is_prob_prime(UV n) nbases = 7; } #else - /* More standard bases */ + /* Classic bases */ if (n < UVCONST(9080191)) { bases[0] = 31; bases[1] = 73; nbases = 2; } else if (n < UVCONST(4759123141)) { -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits