diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2023-06-05 18:55:30 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2023-06-05 18:55:30 +0000 |
| commit | 9c41c2fc1c39b5255cf18086382802177ffee138 (patch) | |
| tree | 1ada869e4819097f4e51af0573b675adb88de4e2 | |
| parent | bdb58061ae1788c2539ae246d3da31d2ead75b22 (diff) | |
| download | perlweeklychallenge-club-9c41c2fc1c39b5255cf18086382802177ffee138.tar.gz perlweeklychallenge-club-9c41c2fc1c39b5255cf18086382802177ffee138.tar.bz2 perlweeklychallenge-club-9c41c2fc1c39b5255cf18086382802177ffee138.zip | |
Task 1 - Correct '>=' in '==' (left over from old code)
| -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)]); |