Merge pull request #11897 from jaldhar/challenge-317

Challenge 317 by Jaldhar H. Vyas.

5 files changed, 57 insertions, 0 deletions

diff --git a/challenge-317/jaldhar-h-vyas/blog.txt b/challenge-317/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..3f100ae4ea
--- /dev/null
+++ b/challenge-317/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/04/perl_weekly_challenge_week_317.html
diff --git a/challenge-317/jaldhar-h-vyas/perl/ch-1.sh b/challenge-317/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..bbe575ee19
--- /dev/null
+++ b/challenge-317/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'say shift eq(join q{},map{substr $_, 0,1} @ARGV)?"true":"false"' "$@"
diff --git a/challenge-317/jaldhar-h-vyas/perl/ch-2.pl b/challenge-317/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..7c33d12f01
--- /dev/null
+++ b/challenge-317/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+use v5.38;
+use builtin qw/ true false /;
+no warnings 'experimental::builtin';
+
+my ($str1, $str2) = @ARGV;
+
+my @chars = split //, $str1;
+my $result = false;
+
+my $length = length $str1;
+
+for my $i (0 .. $length - 1) {
+    for my $j (($i + 1) .. $length - 1) {
+        my @temp = @chars;
+
+        ($temp[$i], $temp[$j]) = ($temp[$j], $temp[$i]);
+
+        if ((join q{}, @temp) eq $str2) {
+            $result = true;
+            last;
+        }
+    }
+}
+
+say $result ? 'true' : 'false';
+
diff --git a/challenge-317/jaldhar-h-vyas/raku/ch-1.sh b/challenge-317/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..78e7e5627e
--- /dev/null
+++ b/challenge-317/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,4 @@
+#!/bin/sh
+
+raku -e '(@*ARGS.shift eq @*ARGS.map({$_.substr(0,1)}).join).so.say' "$@"
+
diff --git a/challenge-317/jaldhar-h-vyas/raku/ch-2.raku b/challenge-317/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..f9a30dfdba
--- /dev/null
+++ b/challenge-317/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    Str $str1,
+    Str $str2,
+) {
+    my @chars = $str1.comb;
+    my $result = False;
+
+    for @chars.keys.combinations(2) -> ($i, $j) {
+        my @temp = @chars;
+
+        (@temp[$i], @temp[$j]) = (@temp[$j], @temp[$i]);
+
+        if @temp.join eq $str2 {
+            $result = True;
+            last;
+        }
+    }
+
+    say $result;
+}