This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.41 in repository libmath-prime-util-perl.
commit 413ed835f8fb6c92f2331598cc920421a4aa4a49 Author: Dana Jacobsen <d...@acm.org> Date: Wed Apr 30 12:10:14 2014 -0700 Update benchmark --- bench/bench-mp-psrp.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/bench/bench-mp-psrp.pl b/bench/bench-mp-psrp.pl index 337d5ae..f232651 100755 --- a/bench/bench-mp-psrp.pl +++ b/bench/bench-mp-psrp.pl @@ -3,6 +3,7 @@ use strict; use warnings; use Math::Prime::Util; use Math::Prime::Util::GMP; +use Math::Prime::Util::PP; use Math::Primality; use Benchmark qw/:all/; use List::Util qw/min max/; @@ -23,7 +24,7 @@ sub test_at_digits { cmpthese($count,{ 'MP' =>sub {Math::Primality::is_strong_pseudoprime($_,3) for @nums;}, 'MPU' =>sub {Math::Prime::Util::is_strong_pseudoprime($_,3) for @nums;}, - 'MPU PP' =>sub {Math::Prime::Util::PP::miller_rabin($_,3) for @nums;}, + 'MPU PP' =>sub {Math::Prime::Util::PP::is_strong_pseudoprime($_,3) for @nums;}, 'MPU GMP' =>sub {Math::Prime::Util::GMP::is_strong_pseudoprime($_,3) for @nums;}, }); } -- 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