[libmath-prime-util-perl] 22/59: Benchmark both XS and front end

[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 fff06a5eeae8ff94d3c2a899009ef0d8a79612c0
Author: Dana Jacobsen <dana at 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