diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-15 00:54:40 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-15 00:54:40 +0100 |
| commit | 8365e034757276e551238bfdfc95382c47298523 (patch) | |
| tree | 2f05020fd0d730660b0969da9e44feed3dcbc105 | |
| parent | 026df825447232e88fd7f7649e8b9130dac809f3 (diff) | |
| parent | 7101b8bb253089ac1b8b6e565b5c6cdb54e8bf0f (diff) | |
| download | perlweeklychallenge-club-8365e034757276e551238bfdfc95382c47298523.tar.gz perlweeklychallenge-club-8365e034757276e551238bfdfc95382c47298523.tar.bz2 perlweeklychallenge-club-8365e034757276e551238bfdfc95382c47298523.zip | |
Merge pull request #54 from kyzn/master
Week 4 Challenge 1 \o/
| -rw-r--r-- | challenge-004/kivanc-yazan/perl5/ch-1.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-004/kivanc-yazan/perl5/ch-1.pl b/challenge-004/kivanc-yazan/perl5/ch-1.pl new file mode 100644 index 0000000000..c63240226b --- /dev/null +++ b/challenge-004/kivanc-yazan/perl5/ch-1.pl @@ -0,0 +1,9 @@ +use warnings; +use strict; +use Math::Prime::Util qw/Pi/; + +open(my $fh, "<", $0); +my $chars; +$chars += length($_) for <$fh>; +close $fh; +print Pi($chars)."\n"; |