From a6cfeedb9adf6078f87475fc8be99bb26bc5331a Mon Sep 17 00:00:00 2001 From: Matthew Neleigh Date: Sat, 16 Sep 2023 11:49:43 -0400 Subject: modified: challenge-234/mattneleigh/perl/ch-1.pl --- challenge-234/mattneleigh/perl/ch-1.pl | 4 ++-- 1 file 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 -- cgit