diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-01-26 23:31:20 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-01-26 23:31:20 +0000 |
| commit | 8f7f5c93def45398db496f35e7921cfe0d264d1d (patch) | |
| tree | 7f141de93b08d38f0e5fc5930ec93fc4ef311638 /challenge-026 | |
| parent | 8902910406fe11ec55932be70d1df508f61c083d (diff) | |
| download | perlweeklychallenge-club-8f7f5c93def45398db496f35e7921cfe0d264d1d.tar.gz perlweeklychallenge-club-8f7f5c93def45398db496f35e7921cfe0d264d1d.tar.bz2 perlweeklychallenge-club-8f7f5c93def45398db496f35e7921cfe0d264d1d.zip | |
Remove List::Util and Data::Dump dependencies
Diffstat (limited to 'challenge-026')
| -rw-r--r-- | challenge-026/paulo-custodio/perl/ch-2.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/challenge-026/paulo-custodio/perl/ch-2.pl b/challenge-026/paulo-custodio/perl/ch-2.pl index 487024d364..e2a27e4736 100644 --- a/challenge-026/paulo-custodio/perl/ch-2.pl +++ b/challenge-026/paulo-custodio/perl/ch-2.pl @@ -10,7 +10,6 @@ use strict; use warnings; use 5.030; use Math::Trig; -use List::Util 'sum'; say mean(@ARGV); @@ -31,3 +30,9 @@ sub mean { $a = rad2deg($a); return $a; } + +sub sum { + my($sum, @a) = @_; + $sum += $_ for @a; + return $sum; +} |