diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2024-01-15 10:35:18 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2024-01-15 10:35:18 +0000 |
| commit | 6cedbb5cf07438403f6d9a58a0defd581e264a14 (patch) | |
| tree | abd36965e07c06472a567e2de5b07fe8ad6f27ba | |
| parent | df7d7976cc76e9574d2806c70ce0dd9af4b27929 (diff) | |
| download | perlweeklychallenge-club-6cedbb5cf07438403f6d9a58a0defd581e264a14.tar.gz perlweeklychallenge-club-6cedbb5cf07438403f6d9a58a0defd581e264a14.tar.bz2 perlweeklychallenge-club-6cedbb5cf07438403f6d9a58a0defd581e264a14.zip | |
Task 2 - Simplify code
| -rwxr-xr-x | challenge-252/perlboy1967/perl/ch2.pl | 7 |
1 files changed, 3 insertions, 4 deletions
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]); |