Challenge 331 by Jaldhar H. Vyas.

5 files changed, 89 insertions, 0 deletions

diff --git a/challenge-331/jaldhar-h-vyas/blog.txt b/challenge-331/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..f41f22d585
--- /dev/null
+++ b/challenge-331/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/07/perl_weekly_challenge_week_331.html
diff --git a/challenge-331/jaldhar-h-vyas/perl/ch-1.sh b/challenge-331/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..15bf268de1
--- /dev/null
+++ b/challenge-331/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E '$_=shift;/(\w+)\W*$/;say length$1||0' "$@"
diff --git a/challenge-331/jaldhar-h-vyas/perl/ch-2.pl b/challenge-331/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..46fb0d29d0
--- /dev/null
+++ b/challenge-331/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+use 5.038;
+use warnings;
+use builtin qw/ true false /;
+no warnings qw/ experimental::builtin /;
+
+sub isBuddyString($source, $target) {
+
+    if (length($source) != length($target)) {
+        return false;
+    }
+
+    if ($source eq $target) {
+        my %count;
+
+        for my $c (split //, $source) {
+            $count{$c}++;
+        }
+
+        return grep { $_ > 1 } values %count ? true : false;
+    }
+
+    my $diff = 0;
+ 
+    for my $i (0 .. length($source) - 1) {
+        if (substr($source, $i, 1) ne substr($target, $i, 1)){
+            $diff++;
+        }
+    }
+
+    if ($diff != 2) {
+        return false;
+    }
+
+    return true;
+}
+
+my ($source, $target) = @ARGV;
+
+if (!defined $source || !defined $target) {
+    die "Usage: $0 source target\n";
+}
+
+say isBuddyString($source, $target) ? "True" : "False";
diff --git a/challenge-331/jaldhar-h-vyas/raku/ch-1.sh b/challenge-331/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..3166baec52
--- /dev/null
+++ b/challenge-331/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '$_=@*ARGS[0];/(\w+)\W*$/;say $0.chars||0' "$@"
diff --git a/challenge-331/jaldhar-h-vyas/raku/ch-2.raku b/challenge-331/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..84aadfad5a
--- /dev/null
+++ b/challenge-331/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,38 @@
+#!/usr/bin/raku
+
+sub isBuddyString($source, $target) {
+    if $source.chars != $target.chars {
+        return False;
+    }
+
+    if ($source eq $target) {
+        my %count;
+
+        for $source.comb -> $c {
+            %count{$c}++;
+        }
+
+        return %count.values.grep({ $_ > 1 }).so;
+    }
+
+    my $diff;
+ 
+    for 0 ..^ $source.chars -> $i {
+        if $source.substr( $i, 1) ne $target.substr($i, 1) {
+            $diff++;
+        }
+    }
+
+    if $diff != 2 {
+        return False;
+    }
+
+    return True;
+}
+
+sub MAIN(
+    $source,
+    $target
+) {
+    isBuddyString($source, $target).say;
+}
\ No newline at end of file