From 9ba1a49d2ded761d2a7822d721407cefa82a4ec3 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 21 Nov 2022 22:38:11 +0000
Subject: Drop average and use minmax

---
 challenge-192/perlboy1967/perl/ch-2.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/challenge-192/perlboy1967/perl/ch-2.pl b/challenge-192/perlboy1967/perl/ch-2.pl
index 49f56eda22..8404b5449b 100755
--- a/challenge-192/perlboy1967/perl/ch-2.pl
+++ b/challenge-192/perlboy1967/perl/ch-2.pl
@@ -49,12 +49,10 @@ sub equalDistribution {
 
   return -1 if ($sum % $n != 0);
 
-  my $avg = $sum/$n;
-
   my $m = 0;
   while (1) {
     my ($min,$max) = minmax(@_);
-    last if ($max == $avg);
+    last if ($min == $max);
 
     $m++;
 
-- 
cgit