Merge pull request #11975 from jaldhar/challenge-320

Challenge 320 by Jaldhar H. Vyas.

5 files changed, 45 insertions, 0 deletions

diff --git a/challenge-320/jaldhar-h-vyas/blog.txt b/challenge-320/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..59e5203d59
--- /dev/null
+++ b/challenge-320/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/05/perl_weekly_challenge_week_320.html
diff --git a/challenge-320/jaldhar-h-vyas/perl/ch-1.pl b/challenge-320/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..f39e4565d5
--- /dev/null
+++ b/challenge-320/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use v5.38;
+
+sub max($first, $second) {
+    return $first > $second ? $first : $second;
+}
+
+my @ints = @ARGV;
+
+my $neg = 0;
+my $pos = 0;
+
+for my $int (@ints) {
+    if ($int < 0) {
+        $neg++;
+    }  elsif ($int > 0) {
+        $pos++;
+    }
+
+}
+say max($neg, $pos);
\ No newline at end of file
diff --git a/challenge-320/jaldhar-h-vyas/perl/ch-2.pl b/challenge-320/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..e328cde15e
--- /dev/null
+++ b/challenge-320/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use v5.38;
+
+sub sum {
+    my $total;
+    for my $n (@_) {
+        $total += $n;
+    }
+
+    return $total;
+}
+
+my @ints = @ARGV;
+
+say sum(@ints) - sum(map { split //, $_ } @ints);
diff --git a/challenge-320/jaldhar-h-vyas/raku/ch-1.sh b/challenge-320/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..54e047bdb0
--- /dev/null
+++ b/challenge-320/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,4 @@
+#!/bin/sh
+
+raku -e '@*ARGS.classify({$_ < 0 ?? "n"!!$_ > 0??"p"!!"z" },:into(my %a));(%a<p>.elems,%a<n>.elems).max.say' "$@"
+
diff --git a/challenge-320/jaldhar-h-vyas/raku/ch-2.sh b/challenge-320/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..798abb07c1
--- /dev/null
+++ b/challenge-320/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,4 @@
+#!/bin/sh
+
+raku -e 'say @*ARGS.sum-@*ARGS.map({ $_.comb }).flat.sum' "$@"
+