diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2023-06-05 09:38:58 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2023-06-05 09:38:58 +0000 |
| commit | 9d233cd02488658cce74585ba2b02562155bdfec (patch) | |
| tree | 4780c79d0d973a1f2337410fea30e9647fdf94d7 | |
| parent | 2791165166fc1dcd480c190db7f01f79ac03f73e (diff) | |
| download | perlweeklychallenge-club-9d233cd02488658cce74585ba2b02562155bdfec.tar.gz perlweeklychallenge-club-9d233cd02488658cce74585ba2b02562155bdfec.tar.bz2 perlweeklychallenge-club-9d233cd02488658cce74585ba2b02562155bdfec.zip | |
Task 1 - move 'lc' out of map
| -rwxr-xr-x | challenge-220/perlboy1967/perl/ch1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-220/perlboy1967/perl/ch1.pl b/challenge-220/perlboy1967/perl/ch1.pl index 2166bd4e3f..216a11d59a 100755 --- a/challenge-220/perlboy1967/perl/ch1.pl +++ b/challenge-220/perlboy1967/perl/ch1.pl @@ -28,7 +28,7 @@ use List::MoreUtils qw(uniq); sub commonChars (@) { my %c; - map { $c{lc $_}++ } uniq split // for (@_); + map { $c{$_}++ } uniq split //,lc for (@_); sort grep { $c{$_} >= scalar @_ } keys %c; } |