From ec58cdaab6e966972ce0256d9ffae8a6090df378 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 12 Feb 2024 07:56:50 +0000
Subject: simplification

---
 challenge-256/perlboy1967/perl/ch1.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'challenge-256')

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