Merge pull request #9439 from BarrOff/barroff-252

feat: add solutions for challenge 252 from BarrOff

1 files changed, 31 insertions, 0 deletions

diff --git a/challenge-252/barroff/perl/ch-2.pl b/challenge-252/barroff/perl/ch-2.pl
new file mode 100644
index 0000000000..ecc45123ff
--- /dev/null
+++ b/challenge-252/barroff/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use v5.38;
+
+sub unique_sum_zero ($n) {
+    my @ints;
+    map( { push( @ints, $_, 0 - $_ ) } 1 .. int( $n / 2 ) );
+    push( @ints, 0 ) if $n % 2 == 1;
+    @ints = sort( { $a <=> $b } @ints );
+    return \@ints;
+}
+
+sub MAIN() {
+    if (@ARGV) {
+
+        #| Run on command line argument
+        say @{ unique_sum_zero( $ARGV[0] ) };
+    }
+    else {
+        #| Run test cases
+        use Test2::V0 qw( is plan );
+        plan 4;
+
+        is unique_sum_zero(5), [ -2, -1, 0, 1, 2 ], 'works for 5';
+        is unique_sum_zero(3), [ -1, 0, 1 ],        'works for 3';
+        is unique_sum_zero(1), [0],                 'works for 1';
+        is unique_sum_zero(0), [],                  'works for 0';
+    }
+}
+
+MAIN();