diff options
| -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{$_}++; } |