Merge pull request #12748 from jaldhar/challenge-340

Challenge 340 by Jaldhar H. Vyas.

5 files changed, 27 insertions, 0 deletions

diff --git a/challenge-340/jaldhar-h-vyas/blog.txt b/challenge-340/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..7de4a205b5
--- /dev/null
+++ b/challenge-340/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/09/perl_weekly_challenge_week_340.html
diff --git a/challenge-340/jaldhar-h-vyas/perl/ch-1.sh b/challenge-340/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..901169204c
--- /dev/null
+++ b/challenge-340/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E '$_=shift;while(s/(.)\1//){}say' "$@"
diff --git a/challenge-340/jaldhar-h-vyas/perl/ch-2.pl b/challenge-340/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..9dc2d3b39d
--- /dev/null
+++ b/challenge-340/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use 5.038;
+use warnings;
+use builtin qw/ true false /;
+no warnings qw/ experimental::builtin /;
+
+my @n = shift =~ /(\d+)/g;
+my $result = true;
+
+for my $i (1 .. scalar @n - 1) {
+    if ($n[$i] < $n[$i- 1]) {
+        $result = false;
+        last
+    }
+}
+
+say $result ? "true" : "false";
\ No newline at end of file
diff --git a/challenge-340/jaldhar-h-vyas/raku/ch-1.sh b/challenge-340/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..39ac30c232
--- /dev/null
+++ b/challenge-340/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '$_=@*ARGS[0];while s/(.)$0// {};.say' "$@"
\ No newline at end of file
diff --git a/challenge-340/jaldhar-h-vyas/raku/ch-2.sh b/challenge-340/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..18d1355ebb
--- /dev/null
+++ b/challenge-340/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e 'my @n=@*ARGS[0].match(/(\d+)/,:g)».Int;(@n ~~ @n.sort({$^a <=> $^b})).say' "$@"
\ No newline at end of file