Merge pull request #9423 from ntovar/branch-252

Challenge 252. Add Perl and Bash solutions. By Nelo Tovar

4 files changed, 142 insertions, 0 deletions

diff --git a/challenge-252/nelo-tovar/bash/ch-1.sh b/challenge-252/nelo-tovar/bash/ch-1.sh
new file mode 100755
index 0000000000..df2ab7a9d1
--- /dev/null
+++ b/challenge-252/nelo-tovar/bash/ch-1.sh
@@ -0,0 +1,33 @@
+#!/usr/bin/env bash 
+#
+# The Weekly Challenge 252 - By Nelo Tovar
+#
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-252/
+#
+# Task 1 : Special Numbers
+
+function special_numbers() {
+    local ints=("$@")
+    local n=${#ints[@]}
+    local sum=0
+
+    for x in ${ints[@]}; do
+        if [[ $(($n % $x)) -eq 0 ]]; then
+            ((sum+=$(($x ** 2))))
+        fi
+    done
+
+    echo $sum
+}
+
+example1='1 2 3 4'
+example2='2 7 1 19 18 3'
+
+for e in "$example1" "$example2" ; do
+    array=($e)
+    sn=$(special_numbers "${array[@]}")
+    echo "Input  : @ints = (${array[@]})"
+    echo "Output : $sn"
+    echo ""
+done
+
diff --git a/challenge-252/nelo-tovar/bash/ch-2.sh b/challenge-252/nelo-tovar/bash/ch-2.sh
new file mode 100755
index 0000000000..27749455b8
--- /dev/null
+++ b/challenge-252/nelo-tovar/bash/ch-2.sh
@@ -0,0 +1,33 @@
+#
+# The Weekly Challenge 252 - By Nelo Tovar
+#
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-252/
+#
+# Task 2 : Unique Sum Zero
+
+function unique_sum_zero() {
+    local n=$1
+    local numbers=()
+
+    if [[ $(($n % 2)) -ne 0 || $n -eq 1 ]]; then
+        numbers=(0)
+    fi
+
+    for (( k = 1; k <= $(($n / 2)); k++ )); do
+        i=$(shuf -i 1-10 -n 1)
+        numbers+=($i -$i)
+    done
+
+    echo ${numbers[@]}
+}
+
+example1='5 3 1'
+
+for e in $example1; do
+    array=($e)
+    usz=$(unique_sum_zero $e)
+    echo "Input  : $s = $e"
+    echo "Output :" $(printf " %s, " ${usz[@]})
+    echo  " "
+done
+
diff --git a/challenge-252/nelo-tovar/perl/ch-1.pl b/challenge-252/nelo-tovar/perl/ch-1.pl
new file mode 100644
index 0000000000..266e83ce97
--- /dev/null
+++ b/challenge-252/nelo-tovar/perl/ch-1.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+
+# The Weekly Challenge 252 - By Nelo Tovar
+#
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-252/
+#
+# Task 1 - Special Numbers
+#
+
+use strict;
+use warnings;
+use v5.28;
+use Data::Dump qw(dump);
+
+my @examples = (
+    [ 1, 2, 3, 4 ],
+    [ 2, 7, 1, 19, 18, 3 ],
+);
+
+sub special_numbers {
+    my $ints = shift;
+    my $n = scalar @$ints;
+    my $sum = 0;
+
+    foreach my $x (@$ints) {
+        $sum += $x ** 2 unless ($n % $x);
+    }
+    
+    return $sum;
+}
+
+for my $elements (@examples) {
+    my $sn = special_numbers $elements;
+
+    say 'Input : @ints = ', dump(@$elements);
+    say 'Output : ', $sn;
+    say ' ';
+}
diff --git a/challenge-252/nelo-tovar/perl/ch-2.pl b/challenge-252/nelo-tovar/perl/ch-2.pl
new file mode 100644
index 0000000000..ad6020cf78
--- /dev/null
+++ b/challenge-252/nelo-tovar/perl/ch-2.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+
+# The Weekly Challenge 252 - By Nelo Tovar
+#
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-252/
+#
+# Task 2 - Unique Sum Zero
+#
+
+use strict;
+use warnings;
+use v5.28;
+use List::Util qw (min max);
+use Data::Dump qw(dump);
+
+my @examples = ( 5, 3, 1 , );
+
+sub unique_sum_zero {
+    my $n = shift;
+    my @numbers = ();
+
+    push @numbers,0 if ($n % 2 != 0) or ($n == 1);
+
+    for (my $k = 1; $k <= $n / 2; $k++) {
+        my $i = int rand(9) + 1;
+        push @numbers, ($i, -$i)
+    }
+     
+    return \@numbers;
+}
+
+for my $elements (@examples) {
+    my $usz = unique_sum_zero $elements;
+
+    say 'Input : $s = ', $elements;
+    say 'Output : ', dump($usz);
+    say ' ';
+}