diff options
| -rw-r--r-- | challenge-250/zapwai/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-250/zapwai/perl/ch-1.pl b/challenge-250/zapwai/perl/ch-1.pl index 8a77df08de..a9c8705de4 100644 --- a/challenge-250/zapwai/perl/ch-1.pl +++ b/challenge-250/zapwai/perl/ch-1.pl @@ -4,7 +4,7 @@ my @ints = (0, 1, 2); #my @ints = (1, 2, 3, 4, 5, 6, 7, 8, 9, 0); my $index = -1; for my $i (0 .. $#ints) { - if ($i == $ints[$i]) { + if ($i % 10 == $ints[$i]) { $index = $i ; last; } |