diff options
| -rw-r--r-- | challenge-064/mohammad-anwar/perl/ch-2.pl | 8 | ||||
| -rw-r--r-- | challenge-064/mohammad-anwar/perl/ch-2a.pl | 4 |
2 files changed, 4 insertions, 8 deletions
diff --git a/challenge-064/mohammad-anwar/perl/ch-2.pl b/challenge-064/mohammad-anwar/perl/ch-2.pl index 4bd9fbb5ea..1b0a0b4fc1 100644 --- a/challenge-064/mohammad-anwar/perl/ch-2.pl +++ b/challenge-064/mohammad-anwar/perl/ch-2.pl @@ -7,17 +7,13 @@ my $string = "perlweeklychallenge"; my $words = [ "weekly", "challenge", "perl" ]; my $match = word_break($string, $words); -(@$match) -? -(print sprintf("Matched: %s\n", join (", ", @$match))) -: -(print "None matched.\n"); +print sprintf("%s\n", join (", ", @$match)); sub word_break { my ($string, $words) = @_; my $matched = [ grep { $string =~ /$_/i } @$words ]; - return 0 unless scalar @$matched; + return [0] unless scalar @$matched; my $search_order = {}; foreach my $word (@$matched) { diff --git a/challenge-064/mohammad-anwar/perl/ch-2a.pl b/challenge-064/mohammad-anwar/perl/ch-2a.pl index 173655dac7..f340608fdd 100644 --- a/challenge-064/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-064/mohammad-anwar/perl/ch-2a.pl @@ -9,7 +9,7 @@ use Test::Deep; is_deeply(word_break("perlweeklychallenge", [ "weekly", "challenge", "perl" ]), [ "perl", "weekly", "challenge" ], "match test"); is_deeply(word_break("perlandraku", [ "python", "ruby", "haskell" ]), - 0, "no match test"); + [ 0 ], "no match test"); done_testing; @@ -17,7 +17,7 @@ sub word_break { my ($string, $words) = @_; my $matched = [ grep { $string =~ /$_/i } @$words ]; - return 0 unless scalar @$matched; + return [0] unless scalar @$matched; my $search_order = {}; foreach my $word (@$matched) { |