diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-03-12 08:10:39 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-03-12 08:10:39 +0000 |
| commit | 82d2c5bd8259720209db64ea3a6178dfa924d8a1 (patch) | |
| tree | c49a561064b5763d2cd1d10ffe5ea17c5722ecbb /challenge-051 | |
| parent | 217fc224888d347c650c2eda4ab59ca18dea5449 (diff) | |
| parent | ce0f0f39d4571fc598628926469dd76000f2b47e (diff) | |
| download | perlweeklychallenge-club-82d2c5bd8259720209db64ea3a6178dfa924d8a1.tar.gz perlweeklychallenge-club-82d2c5bd8259720209db64ea3a6178dfa924d8a1.tar.bz2 perlweeklychallenge-club-82d2c5bd8259720209db64ea3a6178dfa924d8a1.zip | |
Merge pull request #1399 from saiftynet/branch-051
Challenge-051 solutions by saiftynet...edit commit message and code
Diffstat (limited to 'challenge-051')
| -rw-r--r-- | challenge-051/saiftynet/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-051/saiftynet/perl/ch-2.pl b/challenge-051/saiftynet/perl/ch-2.pl index d04d47473e..5d23aa9747 100644 --- a/challenge-051/saiftynet/perl/ch-2.pl +++ b/challenge-051/saiftynet/perl/ch-2.pl @@ -21,7 +21,7 @@ foreach(100..999){ #all possible three digit numbers # all the possible consecutive products @l{$d1, $d2, $d3, $d1*$d2,$d2*$d3,$d1*$d2*$d3}=1x6; - # if number of keys is 7, then no duplicates exist + # if number of keys is 6, then no duplicates exist print "$d1$d2$d3 " if 6 == keys %l; } |