diff options
| -rwxr-xr-x | challenge-331/perlboy1967/perl/ch1.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-331/perlboy1967/perl/ch1.pl b/challenge-331/perlboy1967/perl/ch1.pl index 5f1b23ab28..7d4786e960 100755 --- a/challenge-331/perlboy1967/perl/ch1.pl +++ b/challenge-331/perlboy1967/perl/ch1.pl @@ -19,12 +19,12 @@ use Test2::V0 qw(-no_srand); use exact 'v5.32', -signatures; sub lastWord ($str) { - ($str =~ m#(\S+)\b[\W]*$#)[0]; + length(($str =~ m#(\S+)\b[\W]*$#)[0]); } -is(lastWord(q{The Weekly Challenge}),'Challenge','Example 1'); -is(lastWord(q{ Hello World }),'World','Example 2'); -is(lastWord(q{Let's begin the fun}),'fun','Example 3'); -is(lastWord(q{Hello TWC!}),'TWC','Own example'); +is(lastWord(q{The Weekly Challenge}),9,'Example 1'); +is(lastWord(q{ Hello World }),5,'Example 2'); +is(lastWord(q{Let's begin the fun}),3,'Example 3'); +is(lastWord(q{Hello TWC!}),3,'Own example'); done_testing; |