From e322903f5ac8dd899a5b157369ed79ff970e6784 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 5 Dec 2022 09:12:03 +0000
Subject: Task 2 - drop the intermediate hash

---
 challenge-194/perlboy1967/perl/ch-2.pl | 3 +--
 1 file changed, 1 insertion(+), 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;
 }
 
-- 
cgit