This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.21 in repository libmath-prime-util-perl.
commit e2461d958756a8b35f6728aaf45a480912a2f28f Author: Dana Jacobsen <d...@acm.org> Date: Sun Feb 10 00:02:24 2013 -0800 Add function def to example --- lib/Math/Prime/Util.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm index 3838429..6a69bcc 100644 --- a/lib/Math/Prime/Util.pm +++ b/lib/Math/Prime/Util.pm @@ -2956,7 +2956,7 @@ Project Euler, problem 41 (Pandigital prime), brute force command line: Project Euler, problem 47 (Distinct primes factors): - use Math::Prime::Util qw/factor/; + use Math::Prime::Util qw/pn_primorial factor/; use List::MoreUtils qw/distinct/; sub nfactors { scalar distinct factor(shift); } my $n = pn_primorial(4); # Start with the first 4-factor number @@ -2968,7 +2968,7 @@ Project Euler, problem 69, stupid brute force solution (about 5 seconds): use Math::Prime::Util qw/euler_phi/; my ($n, $max) = (0,0); do { - my $ndivphi = $_/euler_phi($_); + my $ndivphi = $_ / euler_phi($_); ($n, $max) = ($_, $ndivphi) if $ndivphi > $max; } for 1..1000000; say "$n $max"; -- 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