diff options
| author | saiftynet <saiftynet@gmail.com> | 2020-03-11 19:16:49 +0000 |
|---|---|---|
| committer | saiftynet <saiftynew@gmail.com> | 2020-03-11 19:16:49 +0000 |
| commit | ce0f0f39d4571fc598628926469dd76000f2b47e (patch) | |
| tree | 4fb787f74bf562140fcbd01dcb07662a620b1885 /challenge-051 | |
| parent | d5e6f6dfce47d629c759e1cc60678966e49f9b35 (diff) | |
| download | perlweeklychallenge-club-ce0f0f39d4571fc598628926469dd76000f2b47e.tar.gz perlweeklychallenge-club-ce0f0f39d4571fc598628926469dd76000f2b47e.tar.bz2 perlweeklychallenge-club-ce0f0f39d4571fc598628926469dd76000f2b47e.zip | |
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; } |