diff options
| author | brtastic <brtastic.dev@gmail.com> | 2020-06-08 18:58:12 +0200 |
|---|---|---|
| committer | brtastic <brtastic.dev@gmail.com> | 2020-06-08 18:58:12 +0200 |
| commit | b37c70a3cf9f7e9e54c0d8a03c02f88d58638ba0 (patch) | |
| tree | fc549083aec9c029f4efc0cc59900dc1e7d5c378 | |
| parent | 5499df0048c6445063b1c6733ebf3e33ef742a87 (diff) | |
| download | perlweeklychallenge-club-b37c70a3cf9f7e9e54c0d8a03c02f88d58638ba0.tar.gz perlweeklychallenge-club-b37c70a3cf9f7e9e54c0d8a03c02f88d58638ba0.tar.bz2 perlweeklychallenge-club-b37c70a3cf9f7e9e54c0d8a03c02f88d58638ba0.zip | |
Challenge 64.2 - handle zero length strings
| -rw-r--r-- | challenge-064/brtastic/perl/ch-2.pl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/challenge-064/brtastic/perl/ch-2.pl b/challenge-064/brtastic/perl/ch-2.pl index 9561d99214..36a297e753 100644 --- a/challenge-064/brtastic/perl/ch-2.pl +++ b/challenge-064/brtastic/perl/ch-2.pl @@ -19,9 +19,10 @@ sub match_words } } - return 0; + last; } + return 0 if @found != @words; return join ", ", map { '"' . $_ . '"' } @@ -52,6 +53,16 @@ my @data = ( [qw(perl perlish)], '"perlish", "perl"', ], + [ + "", + [], + "", + ], + [ + "", + [qw(test)], + 0, + ], ); for (@data) { |