This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.04
in repository libmath-prime-util-perl.
commit f4de011506317fa536e84c356f659183b9141b62
Author: Dana Jacobsen <d...@acm.org>
Date: Thu Jun 7 23:03:26 2012 -0600
Rename some test files
---
...{bench-factor-extra.t => bench-factor-extra.pl} | 0
examples/bench-factor-semiprime.pl | 2 +-
examples/bench-is-prime.pl | 4 ++--
...{bench-miller-rabin.t => bench-miller-rabin.pl} | 4 ++--
examples/bench-nthprime.pl | 0
examples/test-factoring.pl | 2 +-
examples/test-holf.pl | 27 ++++++++++++++++++++++
7 files changed, 33 insertions(+), 6 deletions(-)
diff --git a/examples/bench-factor-extra.t b/examples/bench-factor-extra.pl
similarity index 100%
rename from examples/bench-factor-extra.t
rename to examples/bench-factor-extra.pl
diff --git a/examples/bench-factor-semiprime.pl
b/examples/bench-factor-semiprime.pl
index 090adec..4e289ad 100755
--- a/examples/bench-factor-semiprime.pl
+++ b/examples/bench-factor-semiprime.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
use strict;
use warnings;
$| = 1; # fast pipes
diff --git a/examples/bench-is-prime.pl b/examples/bench-is-prime.pl
index 69feee5..a96a214 100755
--- a/examples/bench-is-prime.pl
+++ b/examples/bench-is-prime.pl
@@ -1,6 +1,6 @@
-#!/usr/bin/perl -w
-
+#!/usr/bin/env perl
use strict;
+use warnings;
#use Math::Primality;
use Math::Prime::XS;
use Math::Prime::Util;
diff --git a/examples/bench-miller-rabin.t b/examples/bench-miller-rabin.pl
similarity index 96%
rename from examples/bench-miller-rabin.t
rename to examples/bench-miller-rabin.pl
index ddb55d9..b79e121 100755
--- a/examples/bench-miller-rabin.t
+++ b/examples/bench-miller-rabin.pl
@@ -1,6 +1,6 @@
-#!/usr/bin/perl -w
-
+#!/usr/bin/env perl
use strict;
+use warnings;
#use Math::Primality;
use Math::Prime::XS;
use Math::Prime::Util;
diff --git a/examples/bench-nthprime.pl b/examples/bench-nthprime.pl
old mode 100644
new mode 100755
diff --git a/examples/test-factoring.pl b/examples/test-factoring.pl
index 64fe487..a559e60 100755
--- a/examples/test-factoring.pl
+++ b/examples/test-factoring.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
use strict;
use warnings;
$| = 1; # fast pipes
diff --git a/examples/test-holf.pl b/examples/test-holf.pl
new file mode 100755
index 0000000..b1b0f32
--- /dev/null
+++ b/examples/test-holf.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Math::Prime::Util qw/is_prime/;
+use List::Util qw/min max/;
+my $count = shift || -2;
+my $is64bit = (~0 > 4294967295);
+my $maxdigits = ($is64bit) ? 20 : 10; # Noting the range is limited for max.
+
+my $hrounds = 64*1024*1024;
+for (2 .. 100000000) {
+ my @fs;
+ my $s_fact = join(".",sort {$a<=>$b} Math::Prime::Util::factor($_));
+
+ my @p_holf;
+ push @fs, $_;
+ while (@fs) {
+ my $n = pop @fs;
+ if (is_prime($n)) { push @p_holf, $n; }
+ else { push @fs, Math::Prime::Util::holf_factor($n); }
+ }
+ my $s_holf = join(".",sort {$a<=>$b} @p_holf);
+
+ die "$_ $s_fact holf $s_holf\n" unless $s_fact eq $s_holf;
+
+ print "$_\n" if ($_ % 100000) == 0;
+}
--
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
