diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-04-20 18:54:14 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-04-20 18:54:14 +0100 |
| commit | 3a3f03da257e3b7459454ed0fa43923b7c8520f9 (patch) | |
| tree | 4d8df8ab24339febfc55029ae4435b17e42b3fc7 | |
| parent | 054d9fa00ed540ef760c5f2b089d74475861acfa (diff) | |
| parent | e50a05a38efea300de3d93d9d6d421b075e5a488 (diff) | |
| download | perlweeklychallenge-club-3a3f03da257e3b7459454ed0fa43923b7c8520f9.tar.gz perlweeklychallenge-club-3a3f03da257e3b7459454ed0fa43923b7c8520f9.tar.bz2 perlweeklychallenge-club-3a3f03da257e3b7459454ed0fa43923b7c8520f9.zip | |
Merge pull request #9960 from pjcs00/patch-1
Update ch-1.pl
| -rwxr-xr-x | challenge-265/peter-campbell-smith/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-265/peter-campbell-smith/perl/ch-1.pl b/challenge-265/peter-campbell-smith/perl/ch-1.pl index 034302c9fb..f35a1e32df 100755 --- a/challenge-265/peter-campbell-smith/perl/ch-1.pl +++ b/challenge-265/peter-campbell-smith/perl/ch-1.pl @@ -33,7 +33,7 @@ sub over_33perct_appearance { $times[$_] ++ for @ints; # find smallest with >33% - for ($i = 0; $i < @ints; $i ++) { + for ($i = 0; $i < @times; $i ++) { next unless defined $times[$i]; if ($times[$i] > $one_third) { say qq[Output: $i (] . int($times[$i] / @ints * 100) . '%)'; |