Week 341

2 files changed, 62 insertions, 0 deletions

diff --git a/challenge-341/zapwai/perl/ch-1.pl b/challenge-341/zapwai/perl/ch-1.pl
new file mode 100644
index 0000000000..868c0b1723
--- /dev/null
+++ b/challenge-341/zapwai/perl/ch-1.pl
@@ -0,0 +1,34 @@
+use v5.38;
+
+sub proc($s, @k) {
+    say "Input: \$s = $s, \@keys = @k";
+    my @keys = map { lc } @k;
+    my @words = split ' ', $s;
+    my $cnt = 0;
+    for my $word (@words) {
+	for my $letter (@keys) {
+	    if (lc($word) =~ /$letter/) {
+		$cnt++;
+		last;
+	    }
+	}
+    }
+    my $o = scalar(@words) - $cnt;
+    say "Output: $o";
+}
+
+my $s = "Hello World";
+my @keys = ('d');
+proc($s, @keys);
+
+$s = "apple banana cherry"; @keys = ('a', 'e');
+proc($s, @keys);
+
+$s = "Coding is fun"; @keys = ();
+proc($s, @keys);
+
+$s = "The Weekly Challenge"; @keys = ('a', 'b');
+proc($s, @keys);
+
+$s = "Perl and Python"; @keys = ('p');
+proc($s, @keys);
diff --git a/challenge-341/zapwai/perl/ch-2.pl b/challenge-341/zapwai/perl/ch-2.pl
new file mode 100644
index 0000000000..f229be0698
--- /dev/null
+++ b/challenge-341/zapwai/perl/ch-2.pl
@@ -0,0 +1,28 @@
+use v5.38;
+
+sub proc($s, $c) {
+    say "Input: \$str = $s, \$char = $c";
+    my $ind = index $s, $c;
+    my $pre = substr $s, 0, $ind + 1;
+    my $post = substr $s, $ind + 1;
+    print "Output: ";
+    print scalar reverse $pre;
+    say $post;
+}
+
+my $s = "programming";
+my $c = "g";
+proc($s, $c);
+
+$s = "hello";
+$c = "h";
+proc($s, $c);
+
+$s = "abcdefghij"; $c = "h";
+proc($s, $c);
+
+$s = "reverse"; $c = "s";
+proc($s, $c);
+
+$s = "perl"; $c = "r";
+proc($s, $c);