[libmath-prime-util-perl] 22/29: New 3-base solution
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:48:17 UTC 2015
This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.27
in repository libmath-prime-util-perl.
commit 66759374b683874b39202d7ea9de980bcfe3d8cb
Author: Dana Jacobsen <dana at acm.org>
Date: Sun May 19 00:13:36 2013 -0700
New 3-base solution
---
factor.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/factor.c b/factor.c
index 4f2fc89..5a3a3b0 100644
--- a/factor.c
+++ b/factor.c
@@ -360,7 +360,7 @@ int _XS_is_prob_prime(UV n)
bases[0] = 2; bases[1] = 7; bases[2] = 61; nbases = 3;
}
#else
- /* Better bases from http://miller-rabin.appspot.com/, 10 Mar 2013 */
+ /* Better bases from http://miller-rabin.appspot.com/, 18 May 2013 */
if (n < UVCONST(341531)) {
bases[0] = UVCONST(9345883071009581737);
nbases = 1;
@@ -368,10 +368,10 @@ int _XS_is_prob_prime(UV n)
bases[0] = 15;
bases[1] = UVCONST( 13393019396194701 );
nbases = 2;
- } else if (n < UVCONST(154639673381)) {
+ } else if (n < UVCONST(242175507817)) {
bases[0] = 15;
- bases[1] = UVCONST( 176006322 );
- bases[2] = UVCONST( 4221622697 );
+ bases[1] = UVCONST( 7363882082 );
+ bases[2] = UVCONST( 211573017068182 );
nbases = 3;
} else if (n < UVCONST(47636622961201)) {
bases[0] = 2;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git
More information about the Pkg-perl-cvs-commits
mailing list