From 4e2e54f23b38c059517bfcd21b3de16fb28c8f8e Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Sun, 14 Jun 2020 19:14:40 +0100 Subject: - Tidied up Perl solutions. --- challenge-064/mohammad-anwar/perl/ch-2.pl | 8 ++------ 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) { -- cgit