diff options
| -rw-r--r-- | challenge-030/izifresh/perl5/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-030/izifresh/perl5/ch-2.pl b/challenge-030/izifresh/perl5/ch-2.pl index 9c737c11b7..aac6b66a6c 100644 --- a/challenge-030/izifresh/perl5/ch-2.pl +++ b/challenge-030/izifresh/perl5/ch-2.pl @@ -4,9 +4,9 @@ package Numbers; use strict; use warnings; use v5.10; - for my $i (0..10) { - for my $j (0..10) { - for my $k (0..10) { + for my $i (1..10) { + for my $j (1..10) { + for my $k (1..10) { if (($i+$j+$k) == 12) { if ( $i % 2 == 0 or $j % 2 == 0 or $k % 2 == 0 ) { my @m = ($i,$j,$k); |