diff options
| -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) . '%)'; |