From 9d233cd02488658cce74585ba2b02562155bdfec Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 5 Jun 2023 09:38:58 +0000
Subject: Task 1 - move 'lc' out of map

---
 challenge-220/perlboy1967/perl/ch1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
-- 
cgit