From 9c41c2fc1c39b5255cf18086382802177ffee138 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 5 Jun 2023 18:55:30 +0000
Subject: Task 1 - Correct '>=' in '==' (left over from old code)

---
 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 216a11d59a..29be6dc082 100755
--- a/challenge-220/perlboy1967/perl/ch1.pl
+++ b/challenge-220/perlboy1967/perl/ch1.pl
@@ -29,7 +29,7 @@ use List::MoreUtils qw(uniq);
 sub commonChars (@) {
   my %c;
   map { $c{$_}++ } uniq split //,lc for (@_);
-  sort grep { $c{$_} >= scalar @_ } keys %c;
+  sort grep { $c{$_} == scalar @_ } keys %c;
 }
 
 cmp_deeply([commonChars(qw(Perl Rust Raku))],[qw(r)]);
-- 
cgit