[libmath-prime-util-perl] 04/23: Update MR bases for deterministic tests

[Partha P. Mukherjee]

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 <dana at 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