# [libmath-prime-util-perl] 01/17: Add function def to example

```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

---
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); }
@@ -2968,7 +2968,7 @@ Project Euler, problem 69, stupid brute force solution
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
```