This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.19
in repository libmath-prime-util-perl.

commit 26f73ce7d184bc25c46e6ccbf48825b9528cf18c
Author: Dana Jacobsen <d...@acm.org>
Date:   Thu Jan 17 23:17:17 2013 -0800

    Update MR bases
---
 Changes                   |  4 ++++
 examples/find_mr_bases.pl |  3 ++-
 factor.c                  | 12 ++++++------
 lib/Math/Prime/Util.pm    |  2 +-
 4 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/Changes b/Changes
index ff596b5..f4973f4 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Math::Prime::Util.
 
+0.19  ?? January 2012
+
+    - Update MR bases.
+
 0.18  14 January 2012
 
     - Add random_strong_prime.
diff --git a/examples/find_mr_bases.pl b/examples/find_mr_bases.pl
old mode 100644
new mode 100755
index 5eeaeac..2d1e078
--- a/examples/find_mr_bases.pl
+++ b/examples/find_mr_bases.pl
@@ -31,7 +31,7 @@ for my $n (3 .. 1000000) {
 
 # Parallel:
 my $maxn :shared;
-my $start = 1;  # People have mined below ~ 2^52
+my $start = int(2**59+2**41);  # People have mined below 2^55
 $maxn = 2047;
 my $nextn = 2049;
 my @threads;
@@ -83,3 +83,4 @@ base 42162995 good up to 97921
 2012-07-02  base 64390572806844 good up to 161701
 2012-10-15  base 1769236083487960 good up to 192001
 2012-10-17  base 1948244569546278 good up to 212321
+2013-01-14  base 34933608779780163 good up to 218245
diff --git a/factor.c b/factor.c
index a032cbe..8cad533 100644
--- a/factor.c
+++ b/factor.c
@@ -208,13 +208,13 @@ int _XS_is_prob_prime(UV n)
   }
 #else
 #if 1
-  /* Better bases from:  http://miller-rabin.appspot.com/ */
-  if (n < UVCONST(212321)) {
-    bases[0] = UVCONST(1948244569546278);
+  /* Better bases from http://miller-rabin.appspot.com/, 15 Jan 2013 */
+  if (n < UVCONST(218245)) {
+    bases[0] = UVCONST(34933608779780163);
     nbases = 1;
-  } else if (n < UVCONST(360018361)) {
-    bases[0] = UVCONST( 1143370    );
-    bases[1] = UVCONST( 2350307676 );
+  } else if (n < UVCONST(466758181)) {
+    bases[0] = UVCONST( 91869414    );
+    bases[1] = UVCONST( 6346128598129234 );
     nbases = 2;
   } else if (n < UVCONST(105936894253)) {
     bases[0] = 2;
diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm
index ad82c3f..ba75b62 100644
--- a/lib/Math/Prime/Util.pm
+++ b/lib/Math/Prime/Util.pm
@@ -2493,7 +2493,7 @@ strong prime I<p> to be one where
 
 =over
 
-=item * I<p> is large.   This function uses 128 as a minimum.
+=item * I<p> is large.   This function requires at least 128 bits.
 
 =item * I<p-1> has a large prime factor I<r>.
 

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

Reply via email to