diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-14 18:44:20 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-14 18:44:20 +0100 |
| commit | a84ca67828270c9672611bd7c4f1f03a566a11f3 (patch) | |
| tree | c3dd2d9a90b2115a0bc501fd1af8d59433d11f17 | |
| parent | eed05f12a6cd12015d5d9bada54235886b686006 (diff) | |
| download | perlweeklychallenge-club-a84ca67828270c9672611bd7c4f1f03a566a11f3.tar.gz perlweeklychallenge-club-a84ca67828270c9672611bd7c4f1f03a566a11f3.tar.bz2 perlweeklychallenge-club-a84ca67828270c9672611bd7c4f1f03a566a11f3.zip | |
- Tidied up Perl solution.
| -rw-r--r-- | challenge-064/mohammad-anwar/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-064/mohammad-anwar/perl/ch-2.pl b/challenge-064/mohammad-anwar/perl/ch-2.pl index 6e84775b9a..4bd9fbb5ea 100644 --- a/challenge-064/mohammad-anwar/perl/ch-2.pl +++ b/challenge-064/mohammad-anwar/perl/ch-2.pl @@ -17,7 +17,7 @@ sub word_break { my ($string, $words) = @_; my $matched = [ grep { $string =~ /$_/i } @$words ]; - return [] unless scalar @$matched; + return 0 unless scalar @$matched; my $search_order = {}; foreach my $word (@$matched) { |