diff options
| author | John Barrett <john@jbrt.org> | 2019-04-25 00:09:39 +0100 |
|---|---|---|
| committer | John Barrett <john@jbrt.org> | 2019-04-25 00:09:39 +0100 |
| commit | b1acdbbefdbea5a4db9aeec47f7a9a53610c9035 (patch) | |
| tree | 0b7dc1e29011346ba6710847c551bb6d87d9b44e /challenge-005/john-barrett | |
| parent | c91621414ceb3bea84d5db6cf7396d05ea64ace8 (diff) | |
| download | perlweeklychallenge-club-b1acdbbefdbea5a4db9aeec47f7a9a53610c9035.tar.gz perlweeklychallenge-club-b1acdbbefdbea5a4db9aeec47f7a9a53610c9035.tar.bz2 perlweeklychallenge-club-b1acdbbefdbea5a4db9aeec47f7a9a53610c9035.zip | |
formatting
Diffstat (limited to 'challenge-005/john-barrett')
| -rwxr-xr-x | challenge-005/john-barrett/perl5/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-005/john-barrett/perl5/ch-2.pl b/challenge-005/john-barrett/perl5/ch-2.pl index 7a63a70f95..0235c417bc 100755 --- a/challenge-005/john-barrett/perl5/ch-2.pl +++ b/challenge-005/john-barrett/perl5/ch-2.pl @@ -13,7 +13,7 @@ my %signatures; $signatures{ sortedlc( $_ ) }++ for @dict; my %by_count = reverse %signatures; -my $max = ( sort { $b <=> $a } keys %by_count)[0]; +my $max = ( sort { $b <=> $a } keys %by_count )[0]; my $word = $by_count{$max}; my $wordlength = length $word; |