diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2024-01-15 11:25:06 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2024-01-15 11:25:06 +0000 |
| commit | a200f84e96cb99ec38b7d0cc2e8db325f25842fa (patch) | |
| tree | 72c563306098b9cf53db4d777b5fc2076917d9b7 | |
| parent | 6cedbb5cf07438403f6d9a58a0defd581e264a14 (diff) | |
| download | perlweeklychallenge-club-a200f84e96cb99ec38b7d0cc2e8db325f25842fa.tar.gz perlweeklychallenge-club-a200f84e96cb99ec38b7d0cc2e8db325f25842fa.tar.bz2 perlweeklychallenge-club-a200f84e96cb99ec38b7d0cc2e8db325f25842fa.zip | |
Task 1 - Squeeze in 'grep()'
| -rwxr-xr-x | challenge-252/perlboy1967/perl/ch1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-252/perlboy1967/perl/ch1.pl b/challenge-252/perlboy1967/perl/ch1.pl index 45f0b7d04e..e8ae528469 100755 --- a/challenge-252/perlboy1967/perl/ch1.pl +++ b/challenge-252/perlboy1967/perl/ch1.pl @@ -29,7 +29,7 @@ use List::Util qw(sum0); sub specialNumbers (@ints) { my $n = $#ints + 1; - sum0 map { $n % $_ == 0 ? $ints[$_ - 1] ** 2 : 0 } 1 .. $n; + sum0 map { $ints[$_ - 1] ** 2 } grep { $n % $_ == 0 } 1 .. $n; } is(specialNumbers(1,2,3,4),21); |