Challenge 325 by Jaldhar H. Vyas.

5 files changed, 47 insertions, 0 deletions

diff --git a/challenge-325/jaldhar-h-vyas/blog.txt b/challenge-325/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..a4d693d6e5
--- /dev/null
+++ b/challenge-325/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/06/perl_weekly_challenge_week_325.html
diff --git a/challenge-325/jaldhar-h-vyas/perl/ch-1.sh b/challenge-325/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..3d8c7b6bc1
--- /dev/null
+++ b/challenge-325/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E '$_=join q{},@ARGV;say length[sort/([1]+)/g]->[-1]||0' "$@"
diff --git a/challenge-325/jaldhar-h-vyas/perl/ch-2.pl b/challenge-325/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..478448c5a8
--- /dev/null
+++ b/challenge-325/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+
+my @prices = @ARGV;
+my @result;
+
+for my $i (0 .. scalar @prices - 1) {
+    my $discount = 0;
+    for my $j ($i + 1 .. scalar @prices - 1) {
+        if ($prices[$j] <= $prices[$i]) {
+            $discount = $prices[$j];
+            last;
+        }
+    }
+    push @result, $prices[$i] - $discount;
+}
+
+say q{(}, (join q{, }, @result), q{)};
diff --git a/challenge-325/jaldhar-h-vyas/raku/ch-1.sh b/challenge-325/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..7f62692d71
--- /dev/null
+++ b/challenge-325/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS.join~~m:g/(<[1]>+)/;say (($/.sort.tail||q{}).chars' "$@"
diff --git a/challenge-325/jaldhar-h-vyas/raku/ch-2.raku b/challenge-325/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..e9135638b5
--- /dev/null
+++ b/challenge-325/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@prices
+) {
+    my @result;
+
+    for 0 ..^ @prices.elems -> $i {
+        my $discount = 0;
+        for $i + 1 ..^ @prices.elems -> $j {
+            if @prices[$j] <= @prices[$i] {
+                $discount = @prices[$j];
+                last;
+            }
+        }
+        @result.push(@prices[$i] - $discount);
+    }
+
+    say q{(}, @result.join(q{, }), q{)};
+}
\ No newline at end of file