From 6cedbb5cf07438403f6d9a58a0defd581e264a14 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 15 Jan 2024 10:35:18 +0000
Subject: Task 2 - Simplify code

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

(limited to 'challenge-252')

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