From df7d7976cc76e9574d2806c70ce0dd9af4b27929 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 15 Jan 2024 10:20:02 +0000
Subject: Task 2 - reduce code by introducing: $i = $n >> 1

---
 challenge-252/perlboy1967/perl/ch2.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/challenge-252/perlboy1967/perl/ch2.pl b/challenge-252/perlboy1967/perl/ch2.pl
index 9ae1906899..c6ef2e5808 100755
--- a/challenge-252/perlboy1967/perl/ch2.pl
+++ b/challenge-252/perlboy1967/perl/ch2.pl
@@ -25,8 +25,9 @@ use Test2::V0;
 sub uniqSumZero ($n) {
   my @n = (0);
   if ($n > 1) {
-    @n = sort { $a <=> $b } map { (-$_,$_) } 1 .. $n / 2;
-    splice(@n,$n>>1,1,0,$n[$n>>1]) if ($n % 2 != 0);
+    my $i = $n >> 1;
+    @n = sort { $a <=> $b } map { (-$_,$_) } 1 .. $i;
+    splice(@n,$i,1,0,$n[$i]) if ($n % 2 != 0);
   }
   [@n];
 }
-- 
cgit