diff options
| author | root <rederni@mail.ru> | 2019-10-18 18:42:21 +0000 |
|---|---|---|
| committer | root <rederni@mail.ru> | 2019-10-18 18:42:21 +0000 |
| commit | b0134fce74356142bd490e5a85730de752b40fc2 (patch) | |
| tree | 076c594ae7dc33fab7c8cece75490d7632f8733f /challenge-030/izifresh | |
| parent | c97e1abd5def1ad732c0d082390b0e525956360d (diff) | |
| download | perlweeklychallenge-club-b0134fce74356142bd490e5a85730de752b40fc2.tar.gz perlweeklychallenge-club-b0134fce74356142bd490e5a85730de752b40fc2.tar.bz2 perlweeklychallenge-club-b0134fce74356142bd490e5a85730de752b40fc2.zip | |
update
Diffstat (limited to 'challenge-030/izifresh')
| -rw-r--r-- | challenge-030/izifresh/Perl 5/numbers | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-030/izifresh/Perl 5/numbers b/challenge-030/izifresh/Perl 5/numbers index 9c737c11b7..aac6b66a6c 100644 --- a/challenge-030/izifresh/Perl 5/numbers +++ b/challenge-030/izifresh/Perl 5/numbers @@ -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); |
