[libmath-prime-util-perl] 26/54: Add a PE example

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.38
in repository libmath-prime-util-perl.

commit b38f21d27561a0cb2c5a360816f8084b3220b91f
Author: Dana Jacobsen <dana at acm.org>
Date:   Wed Feb 12 10:39:26 2014 -0800

    Add a PE example
---
 MANIFEST                      | 1 +
 examples/project_euler_072.pl | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/MANIFEST b/MANIFEST
index 5b0e3b1..399f926 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -75,6 +75,7 @@ examples/project_euler_047.pl
 examples/project_euler_049.pl
 examples/project_euler_069.pl
 examples/project_euler_070.pl
+examples/project_euler_072.pl
 examples/project_euler_095.pl
 examples/project_euler_211.pl
 examples/project_euler_214.pl
diff --git a/examples/project_euler_072.pl b/examples/project_euler_072.pl
new file mode 100644
index 0000000..9518828
--- /dev/null
+++ b/examples/project_euler_072.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use Math::Prime::Util qw/euler_phi/;
+
+my $sum = 0;
+$sum += $_ for euler_phi(2,1000000);
+print "$sum\n";

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git