diff options
| author | Mariano Spadaccini <spadacciniweb@gmail.com> | 2025-09-29 13:00:36 +0200 |
|---|---|---|
| committer | Mariano Spadaccini <spadacciniweb@gmail.com> | 2025-09-29 13:00:36 +0200 |
| commit | cd67dcfb85d89114cfac5aceda02b23b9dda6f8c (patch) | |
| tree | 794c6302e51cb88568c8f18628aa39d04e8973c5 | |
| parent | cd07f0044d6780da5c7ca84de1262fba34a0c2a7 (diff) | |
| download | perlweeklychallenge-club-cd67dcfb85d89114cfac5aceda02b23b9dda6f8c.tar.gz perlweeklychallenge-club-cd67dcfb85d89114cfac5aceda02b23b9dda6f8c.tar.bz2 perlweeklychallenge-club-cd67dcfb85d89114cfac5aceda02b23b9dda6f8c.zip | |
Cleanup ch-1 in Perl
| -rw-r--r-- | challenge-341/spadacciniweb/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-341/spadacciniweb/perl/ch-1.pl b/challenge-341/spadacciniweb/perl/ch-1.pl index 083096b089..cf8b04d173 100644 --- a/challenge-341/spadacciniweb/perl/ch-1.pl +++ b/challenge-341/spadacciniweb/perl/ch-1.pl @@ -68,5 +68,5 @@ sub broken_keyboard { printf "'%s' (%s) -> %d\n", $str, (join ', ', map { sprintf "'$_'" } @$keys), - (scalar keys %words) - (scalar grep { $_ } values %words); + scalar grep { $_ == 0 } values %words; } |