From a200f84e96cb99ec38b7d0cc2e8db325f25842fa Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 15 Jan 2024 11:25:06 +0000
Subject: Task 1 - Squeeze in 'grep()'

---
 challenge-252/perlboy1967/perl/ch1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
cgit