diff options
| -rw-r--r-- | challenge-250/zapwai/perl/ch-1.pl | 13 | ||||
| -rw-r--r-- | challenge-250/zapwai/perl/ch-2.pl | 13 |
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 |