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 fff06a5eeae8ff94d3c2a899009ef0d8a79612c0 Author: Dana Jacobsen <d...@acm.org> Date: Mon Jul 2 13:05:19 2012 -0600 Benchmark both XS and front end --- examples/bench-factor.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/examples/bench-factor.pl b/examples/bench-factor.pl index 07cac89..04ea83a 100755 --- a/examples/bench-factor.pl +++ b/examples/bench-factor.pl @@ -43,10 +43,12 @@ sub test_at_digits { # " ($min_num - $max_num)\n"; my $lref = { - "MPU rand" => sub { factor($_) for @rnd }, - "MPU semi" => sub { factor($_) for @smp }, - "MFXS rand" => sub { prime_factors($_) for @rnd }, - "MFXS semi" => sub { prime_factors($_) for @smp }, + "MPUxs rand" => sub { Math::Prime::Util::_XS_factor($_) for @rnd }, + "MPUxs semi" => sub { Math::Prime::Util::_XS_factor($_) for @smp }, + "MPU rand" => sub { factor($_) for @rnd }, + "MPU semi" => sub { factor($_) for @smp }, + "MFXS rand" => sub { prime_factors($_) for @rnd }, + "MFXS semi" => sub { prime_factors($_) for @smp }, }; cmpthese($count, $lref); } -- 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