Task 2 - reduce code by introducing: $i = $n >> 1

1 files 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];
 }