[libmath-prime-util-perl] 02/59: Update timings, fix test plan

[Partha P. Mukherjee]

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

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

commit 2f3e8cefa86d78b6390cecdee47c06e55a3b669a
Author: Dana Jacobsen <dana at acm.org>
Date:   Tue Jun 26 10:39:00 2012 -0600

    Update timings, fix test plan
---
 Makefile.PL            | 2 +-
 lib/Math/Prime/Util.pm | 7 ++++---
 t/13-primecount.t      | 2 +-
 3 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 1c8925f..a9afe32 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -28,7 +28,7 @@ WriteMakefile1(
     MIN_PERL_VERSION => 5.006002,
 );
 
-sub WriteMakefile1 {
+sub WriteMakefile1 {   # Cribbed from eumm-upgrade by Alexandr Ciornii
   my %params = @_;
   my $eumm_version = $ExtUtils::MakeMaker::VERSION;
   $eumm_version = eval $eumm_version;
diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm
index bb5762a..6b66cc7 100644
--- a/lib/Math/Prime/Util.pm
+++ b/lib/Math/Prime/Util.pm
@@ -823,9 +823,10 @@ Pi(10^10) = 455,052,511.
 
        1.9  primesieve 3.6 forced to use only a single thread
        2.2  yafu 1.31
-       5.6  Tomás Oliveira e Silva's segmented sieve v2 (Sep 2010)
-       6.6  primegen (optimized Sieve of Atkin)
-      11.2  Tomás Oliveira e Silva's segmented sieve v1 (May 2003)
+       3.8  primegen (optimized Sieve of Atkin, conf-word 8192)
+       5.6  Tomás Oliveira e Silva's unoptimized segmented sieve v2 (Sep 2010)
+       9.3  http://tverniquet.com/prime/ (mod 2310, single thread)
+      11.2  Tomás Oliveira e Silva's unoptimized segmented sieve v1 (May 2003)
       17.0  Pari 2.3.5 (primepi)
 
    Small portable functions suitable for plugging into XS:
diff --git a/t/13-primecount.t b/t/13-primecount.t
index a20103e..f711515 100644
--- a/t/13-primecount.t
+++ b/t/13-primecount.t
@@ -78,7 +78,7 @@ delete @intervals{ grep { (parse_range($_))[1] > ~0 } keys %intervals };
 plan tests => 0 + 1
                 + 3*scalar(keys %pivals32)
                 + scalar(keys %pivals_small)
-                + $use64 * scalar(keys %pivals64)
+                + $use64 * 3 * scalar(keys %pivals64)
                 + scalar(keys %intervals);
 
 ok( eval { prime_count(13); 1; }, "prime_count in void context");

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git