diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2024-02-12 07:56:50 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2024-02-12 07:56:50 +0000 |
| commit | ec58cdaab6e966972ce0256d9ffae8a6090df378 (patch) | |
| tree | 7c83e17d6a294c4f1bfcb1ba38881598f9d5c785 /challenge-256 | |
| parent | c3dc2d75c6a110082c7b3866cde4d50d088bd438 (diff) | |
| download | perlweeklychallenge-club-ec58cdaab6e966972ce0256d9ffae8a6090df378.tar.gz perlweeklychallenge-club-ec58cdaab6e966972ce0256d9ffae8a6090df378.tar.bz2 perlweeklychallenge-club-ec58cdaab6e966972ce0256d9ffae8a6090df378.zip | |
simplification
Diffstat (limited to 'challenge-256')
| -rwxr-xr-x | challenge-256/perlboy1967/perl/ch1.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-256/perlboy1967/perl/ch1.pl b/challenge-256/perlboy1967/perl/ch1.pl index 46d15ab60a..e08c285dd4 100755 --- a/challenge-256/perlboy1967/perl/ch1.pl +++ b/challenge-256/perlboy1967/perl/ch1.pl @@ -27,8 +27,7 @@ sub maximumPairs(@words) { my ($n,%w) = (0); for (@words) { - my $rev = reverse $_; - $n++ if exists $w{$rev}; + $n++ if exists $w{reverse $_}; $w{$_}++; } |