diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-11-21 22:38:11 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-11-21 22:38:11 +0000 |
| commit | 9ba1a49d2ded761d2a7822d721407cefa82a4ec3 (patch) | |
| tree | a8864fbb1dae1952a31a02a5ed6045ead590b5d3 | |
| parent | 989174bfed72b2f3e1c0e66edd8ca8221636fd98 (diff) | |
| download | perlweeklychallenge-club-9ba1a49d2ded761d2a7822d721407cefa82a4ec3.tar.gz perlweeklychallenge-club-9ba1a49d2ded761d2a7822d721407cefa82a4ec3.tar.bz2 perlweeklychallenge-club-9ba1a49d2ded761d2a7822d721407cefa82a4ec3.zip | |
Drop average and use minmax
| -rwxr-xr-x | challenge-192/perlboy1967/perl/ch-2.pl | 4 |
1 files changed, 1 insertions, 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++; |