diff options
| -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 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)]); |