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