diff options
| -rwxr-xr-x | challenge-252/perlboy1967/perl/ch2.pl | 5 |
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]; } |