diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-12-05 09:12:03 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-12-05 09:12:03 +0000 |
| commit | e322903f5ac8dd899a5b157369ed79ff970e6784 (patch) | |
| tree | 89b2835dcf14ed2365a1978ae0e2aefd0dbc953f | |
| parent | 7ce0131a118cb78636f283993b28214728eab9dc (diff) | |
| download | perlweeklychallenge-club-e322903f5ac8dd899a5b157369ed79ff970e6784.tar.gz perlweeklychallenge-club-e322903f5ac8dd899a5b157369ed79ff970e6784.tar.bz2 perlweeklychallenge-club-e322903f5ac8dd899a5b157369ed79ff970e6784.zip | |
Task 2 - drop the intermediate hash
| -rwxr-xr-x | challenge-194/perlboy1967/perl/ch-2.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-194/perlboy1967/perl/ch-2.pl b/challenge-194/perlboy1967/perl/ch-2.pl index 41ae391e34..d15d3ceaf1 100755 --- a/challenge-194/perlboy1967/perl/ch-2.pl +++ b/challenge-194/perlboy1967/perl/ch-2.pl @@ -26,8 +26,7 @@ use Test::More; sub freqEqual ($) { - my %f = frequency(split//,$_[0]); - my ($min,$max) = minmax(keys {reverse %f}); + my ($min,$max) = minmax(keys{reverse frequency(split//,$_[0])}); return $min == $max-1 ? 1 : 0; } |