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:32:22 +0000 |
| commit | 022a9f62eda3b5e188b9f6719a63566d9d7efc8b (patch) | |
| tree | 7f141de93b08d38f0e5fc5930ec93fc4ef311638 /challenge-080 | |
| parent | 8902910406fe11ec55932be70d1df508f61c083d (diff) | |
| download | perlweeklychallenge-club-022a9f62eda3b5e188b9f6719a63566d9d7efc8b.tar.gz perlweeklychallenge-club-022a9f62eda3b5e188b9f6719a63566d9d7efc8b.tar.bz2 perlweeklychallenge-club-022a9f62eda3b5e188b9f6719a63566d9d7efc8b.zip | |
Remove List::Util and Data::Dump dependencies
Diffstat (limited to 'challenge-080')
| -rw-r--r-- | challenge-080/paulo-custodio/perl/ch-2.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/challenge-080/paulo-custodio/perl/ch-2.pl b/challenge-080/paulo-custodio/perl/ch-2.pl index b22a6edd3a..10061bdc95 100644 --- a/challenge-080/paulo-custodio/perl/ch-2.pl +++ b/challenge-080/paulo-custodio/perl/ch-2.pl @@ -26,7 +26,6 @@ use strict; use warnings; use 5.030; -use List::Util 'sum'; say candies(@ARGV); @@ -40,3 +39,9 @@ sub candies { } return sum(@candy); } + +sub sum { + my($sum, @a) = @_; + $sum += $_ for @a; + return $sum; +} |