Merge pull request #12420 from jaldhar/challenge-332

Challenge 332 by Jaldhar H. Vyas.

5 files changed, 31 insertions, 0 deletions

diff --git a/challenge-332/jaldhar-h-vyas/blog.txt b/challenge-332/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..9d99df4624
--- /dev/null
+++ b/challenge-332/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/07/perl_weekly_challenge_week_332.html
diff --git a/challenge-332/jaldhar-h-vyas/perl/ch-1.sh b/challenge-332/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..e27922d294
--- /dev/null
+++ b/challenge-332/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'say join q{-},(map{sprintf"%b",$_}split/-/,shift)' "$@"
diff --git a/challenge-332/jaldhar-h-vyas/perl/ch-2.pl b/challenge-332/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..d8c905ceb0
--- /dev/null
+++ b/challenge-332/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use 5.038;
+use warnings;
+use English;
+
+my $str = shift // die "Usage: $PROGRAM_NAME string\n";
+my @letters = split //, $str;
+my %count;
+
+for my $letter (@letters) {
+    $count{$letter}++;
+}
+
+for my $n (values %count) {
+    if ($n % 2 == 0) {
+        say "False";
+        exit;
+    }
+}
+
+say "True";
diff --git a/challenge-332/jaldhar-h-vyas/raku/ch-1.sh b/challenge-332/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..079ce98da8
--- /dev/null
+++ b/challenge-332/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0].split(q{-}).map({$_.Int.base(2)}).join(q{-}).say' "$@"
diff --git a/challenge-332/jaldhar-h-vyas/raku/ch-2.sh b/challenge-332/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..65b6a0540a
--- /dev/null
+++ b/challenge-332/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e 'all(@*ARGS[0].comb.Bag.values%%2).so.say' "$@"