Challenge 321 by Jaldhar H. Vyas.

5 files changed, 51 insertions, 0 deletions

diff --git a/challenge-321/jaldhar-h-vyas/blog.txt b/challenge-321/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..7043cfbed4
--- /dev/null
+++ b/challenge-321/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/05/perl_weekly_challenge_week_321.html
diff --git a/challenge-321/jaldhar-h-vyas/perl/ch-1.pl b/challenge-321/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..613e0479b1
--- /dev/null
+++ b/challenge-321/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use v5.38;
+
+my @nums = sort { $a <=> $b } @ARGV;
+my %distinct;
+
+while (scalar @nums) {
+    $distinct{($nums[0] + $nums[-1]) / 2}++;
+    @nums = @nums[1 .. $#nums - 1];
+}
+
+say scalar keys %distinct;
\ No newline at end of file
diff --git a/challenge-321/jaldhar-h-vyas/perl/ch-2.pl b/challenge-321/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..293f47526b
--- /dev/null
+++ b/challenge-321/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use v5.38;
+
+my ($str1, $str2) = @ARGV;
+
+undef while ($str1 =~ s/[^#]#//);
+undef while ($str2 =~ s/[^#]#//);
+
+say $str1 eq $str2 ? 'true' : 'false';
diff --git a/challenge-321/jaldhar-h-vyas/raku/ch-1.raku b/challenge-321/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..f9cdca0f38
--- /dev/null
+++ b/challenge-321/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@args
+) {
+    my @nums = @args.sort({ $^a <=> $^b });
+    my %distinct;
+
+    while @nums.elems {
+        %distinct{(@nums[0] + @nums[*-1]) / 2}++;
+        @nums = @nums[1 .. *-2];
+    }
+
+    %distinct.keys.elems.say;
+}
\ No newline at end of file
diff --git a/challenge-321/jaldhar-h-vyas/raku/ch-2.raku b/challenge-321/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..59701c7be3
--- /dev/null
+++ b/challenge-321/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    Str $str1,
+    Str $str2
+) {
+    my $copy1 = $str1;
+    my $copy2 = $str2;
+
+    $copy1 = $copy1.subst(/<-[#]> '#' /) while $copy1 ~~ /<-[#]> '#' /;
+    $copy2 = $copy2.subst(/<-[#]> '#' /) while $copy2 ~~ /<-[#]> '#' /;
+ 
+    say $copy1 eq $copy2;
+}
\ No newline at end of file