Merge pull request #9323 from zapwai/branch-for-250

Week 250

2 files changed, 26 insertions, 0 deletions

diff --git a/challenge-250/zapwai/perl/ch-1.pl b/challenge-250/zapwai/perl/ch-1.pl
new file mode 100644
index 0000000000..8a77df08de
--- /dev/null
+++ b/challenge-250/zapwai/perl/ch-1.pl
@@ -0,0 +1,13 @@
+use v5.30;
+my @ints = (0, 1, 2);
+#my @ints = (4,3,2,1);
+#my @ints = (1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
+my $index = -1;
+for my $i (0 .. $#ints) {
+    if ($i == $ints[$i]) {
+	$index = $i ;
+	last;
+    }
+}
+say "Input: \@ints = @ints";
+say "Output: $index";
\ No newline at end of file
diff --git a/challenge-250/zapwai/perl/ch-2.pl b/challenge-250/zapwai/perl/ch-2.pl
new file mode 100644
index 0000000000..414f671af4
--- /dev/null
+++ b/challenge-250/zapwai/perl/ch-2.pl
@@ -0,0 +1,13 @@
+use v5.30;
+use List::Util qw( max );
+my @alphanumstr = ("perl", "2", "000", "python", "r4ku");
+my @alphanumstr = ("001", "1", "000", "0001");
+my @nums = map {length $_} @alphanumstr;
+for my $i (0 .. $#alphanumstr) {
+    if ($alphanumstr[$i] =~ /^(\d+)$/) {
+	$nums[$i] = $1;
+    }
+}
+say "Input: \@alphanumstr = @alphanumstr";
+my $max = max @nums;
+say "Output: $max";
\ No newline at end of file