diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-09-29 12:47:22 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-09-29 12:47:22 +0100 |
| commit | ad6e8f2d20ca54b124b1fb1341f03755080fa6da (patch) | |
| tree | 520c16af707c00728c678b3bc1207e3bf3bf29da | |
| parent | 24be50627b202c23314c13e6f471e9ebbb360b05 (diff) | |
| parent | 93bc75642d46b64d1afa127317c14fc968776827 (diff) | |
| download | perlweeklychallenge-club-ad6e8f2d20ca54b124b1fb1341f03755080fa6da.tar.gz perlweeklychallenge-club-ad6e8f2d20ca54b124b1fb1341f03755080fa6da.tar.bz2 perlweeklychallenge-club-ad6e8f2d20ca54b124b1fb1341f03755080fa6da.zip | |
Merge pull request #12758 from nicomen/341
341 small fixes
| -rw-r--r-- | challenge-341/nicolas-mendoza/perl/ch-1.pl | 6 | ||||
| -rw-r--r-- | challenge-341/nicolas-mendoza/perl/ch-2.pl | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/challenge-341/nicolas-mendoza/perl/ch-1.pl b/challenge-341/nicolas-mendoza/perl/ch-1.pl index 58a8648b3e..f4cd10023e 100644 --- a/challenge-341/nicolas-mendoza/perl/ch-1.pl +++ b/challenge-341/nicolas-mendoza/perl/ch-1.pl @@ -1,5 +1,8 @@ #!/usr/bin/env perl +use strict; +use warnings; + use Test2::V0; use feature qw(signatures); @@ -19,6 +22,5 @@ done_testing; sub broken_keyboard($in, @broken) { my @words = split m{\s+}, $in; - my $pat = "[@broken]"; - return @broken ? grep { $_ !~ m{$pat}i } @words : @words + return @broken ? grep { $_ !~ m{[@broken]}i } @words : @words } diff --git a/challenge-341/nicolas-mendoza/perl/ch-2.pl b/challenge-341/nicolas-mendoza/perl/ch-2.pl index 784a7ca907..2eedee8dd7 100644 --- a/challenge-341/nicolas-mendoza/perl/ch-2.pl +++ b/challenge-341/nicolas-mendoza/perl/ch-2.pl @@ -1,5 +1,8 @@ #!/usr/bin/env perl +use strict; +use warnings; + use Test2::V0; use feature qw(signatures); @@ -15,6 +18,8 @@ for my $t (sort keys %{ $tests }) { is reverse_prefix($t, $tests->{$t}->[0]), $tests->{$t}->[1], "$t => $tests->{$t}->[1]"; } +done_testing; + sub reverse_prefix($str, $char) { $str =~ s{(.*?$char)}{reverse $1}e; return $str; |