From 47462ef05719a10d4ddd48398f8e2e7716f00a1b Mon Sep 17 00:00:00 2001
From: "Jaldhar H. Vyas" <jaldhar@braincells.com>
Date: Sun, 28 Sep 2025 17:55:27 -0400
Subject: Challenge 340 by Jaldhar H. Vyas.

---
 challenge-340/jaldhar-h-vyas/blog.txt     |  1 +
 challenge-340/jaldhar-h-vyas/perl/ch-1.sh |  3 +++
 challenge-340/jaldhar-h-vyas/perl/ch-2.pl | 17 +++++++++++++++++
 challenge-340/jaldhar-h-vyas/raku/ch-1.sh |  3 +++
 challenge-340/jaldhar-h-vyas/raku/ch-2.sh |  3 +++
 5 files changed, 27 insertions(+)
 create mode 100644 challenge-340/jaldhar-h-vyas/blog.txt
 create mode 100755 challenge-340/jaldhar-h-vyas/perl/ch-1.sh
 create mode 100755 challenge-340/jaldhar-h-vyas/perl/ch-2.pl
 create mode 100755 challenge-340/jaldhar-h-vyas/raku/ch-1.sh
 create mode 100755 challenge-340/jaldhar-h-vyas/raku/ch-2.sh

(limited to 'challenge-340')

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
-- 
cgit