diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-11-21 21:58:46 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-11-21 21:58:46 +0000 |
| commit | 09449f5bfe26348aa3a5ea7e22e0c2ca1f845f00 (patch) | |
| tree | 3544c137c756bac90a95650073b36bcbef8aed8a | |
| parent | 03cb580905e2075cec196bc085346ab534eb6257 (diff) | |
| download | perlweeklychallenge-club-09449f5bfe26348aa3a5ea7e22e0c2ca1f845f00.tar.gz perlweeklychallenge-club-09449f5bfe26348aa3a5ea7e22e0c2ca1f845f00.tar.bz2 perlweeklychallenge-club-09449f5bfe26348aa3a5ea7e22e0c2ca1f845f00.zip | |
Minor cleanup
| -rwxr-xr-x | challenge-192/perlboy1967/perl/ch-2.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-192/perlboy1967/perl/ch-2.pl b/challenge-192/perlboy1967/perl/ch-2.pl index 5e9fc3e944..7f45d5e22d 100755 --- a/challenge-192/perlboy1967/perl/ch-2.pl +++ b/challenge-192/perlboy1967/perl/ch-2.pl @@ -46,9 +46,10 @@ sub equalDistribution { my $sum = sum(@_); my $n = scalar(@_); - my $avg = $sum/$n; - return -1 if (int($sum/$n) != $avg); + return -1 if ($sum % $n != 0); + + my $avg = $sum/$n; my $m = 0; while (1) { |