diff options
| -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; } |