From a40acff603dcb5720d85b8d08a40650e4360f776 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 15 Jan 2024 10:05:11 +0000
Subject: Task 1 - Delete not needed $i

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

diff --git a/challenge-252/perlboy1967/perl/ch1.pl b/challenge-252/perlboy1967/perl/ch1.pl
index 0e2f5ffd72..45f0b7d04e 100755
--- a/challenge-252/perlboy1967/perl/ch1.pl
+++ b/challenge-252/perlboy1967/perl/ch1.pl
@@ -29,8 +29,7 @@ use List::Util qw(sum0);
 
 sub specialNumbers (@ints) {
   my $n = $#ints + 1;
-  sum0 map { my $i = $_ - 1; 
-             $n % $_ == 0 ? $ints[$i] ** 2 : 0 } 1 .. $n;
+  sum0 map { $n % $_ == 0 ? $ints[$_ - 1] ** 2 : 0 } 1 .. $n;
 }
 
 is(specialNumbers(1,2,3,4),21);
-- 
cgit