diff options
| author | Zapwai <zapwai@gmail.com> | 2024-01-02 22:35:11 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-01-02 22:35:11 -0500 |
| commit | bf5891888bbc7d1f4a2221154c1cce6c983e5c19 (patch) | |
| tree | 4dd884818cad7e14afec10bc8d57bedfef0a1059 | |
| parent | 425fe9b8efef3352aab9793dd4a41dc50c207e63 (diff) | |
| download | perlweeklychallenge-club-bf5891888bbc7d1f4a2221154c1cce6c983e5c19.tar.gz perlweeklychallenge-club-bf5891888bbc7d1f4a2221154c1cce6c983e5c19.tar.bz2 perlweeklychallenge-club-bf5891888bbc7d1f4a2221154c1cce6c983e5c19.zip | |
forgot to modulo
| -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; } |