diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2023-09-16 11:49:43 -0400 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2023-09-16 11:49:43 -0400 |
| commit | a6cfeedb9adf6078f87475fc8be99bb26bc5331a (patch) | |
| tree | a98ed1d64c27073d58bc10f45997031326e7cdcc | |
| parent | 419291a7a9220b696a3f1bf6b1abc90dd9415e38 (diff) | |
| download | perlweeklychallenge-club-a6cfeedb9adf6078f87475fc8be99bb26bc5331a.tar.gz perlweeklychallenge-club-a6cfeedb9adf6078f87475fc8be99bb26bc5331a.tar.bz2 perlweeklychallenge-club-a6cfeedb9adf6078f87475fc8be99bb26bc5331a.zip | |
modified: challenge-234/mattneleigh/perl/ch-1.pl
| -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 |