diff options
| -rwxr-xr-x | challenge-234/mattneleigh/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-234/mattneleigh/perl/ch-1.pl b/challenge-234/mattneleigh/perl/ch-1.pl index 48a2b61ed9..902ec040a5 100755 --- a/challenge-234/mattneleigh/perl/ch-1.pl +++ b/challenge-234/mattneleigh/perl/ch-1.pl @@ -107,13 +107,13 @@ sub find_omnipresent_and_repeated_letters{ return( # Loop over remaining letters that were seen - # in each word... + # in every word... map( { my $ref = $_; # ...and repeat each letter the minimum number - # of times it was seen in any word + # of times it was seen in any particular word map($ref->[0], (1 .. $ref->[1])); } @letters |