Week 332

2 files changed, 41 insertions, 0 deletions

diff --git a/challenge-332/zapwai/perl/ch-1.pl b/challenge-332/zapwai/perl/ch-1.pl
new file mode 100644
index 0000000000..d167f067a0
--- /dev/null
+++ b/challenge-332/zapwai/perl/ch-1.pl
@@ -0,0 +1,17 @@
+use v5.38;
+
+sub proc($date) {
+    say "Input : $date";
+    my @newnum = map {sprintf("%b", $_)} split "-", $date;
+    my $o = join "-", @newnum;
+    say "Output: $o";
+}
+
+my $date = "2025-07-26";
+proc($date);
+
+$date = "2000-02-02";
+proc($date);
+
+$date = "2024-12-31";
+proc($date);
diff --git a/challenge-332/zapwai/perl/ch-2.pl b/challenge-332/zapwai/perl/ch-2.pl
new file mode 100644
index 0000000000..cbd290bc18
--- /dev/null
+++ b/challenge-332/zapwai/perl/ch-2.pl
@@ -0,0 +1,24 @@
+use v5.38;
+
+sub proc($str) {
+    say "Input: $str";
+    my @letter = split '', $str;
+    my %f;
+    for (@letter) {
+	$f{$_}++;
+    }
+    my $even = 0;
+    for my $v (values(%f)) {
+	$even = 1 if ($v % 2 == 0);
+    }
+    ($even == 1) ? say "Output: false" : say "Output: true";
+}
+
+my $str = "weekly";
+proc($str);
+
+$str = "perl";
+proc($str);
+
+$str = "challenge";
+proc($str);