diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-09 23:21:49 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-09 23:21:49 +0000 |
| commit | 161682ddda79400ed99207b39d74f86767e5ebdb (patch) | |
| tree | ca988bf7615539d2430be9272f68f69d95262432 /challenge-051/mohammad-anwar | |
| parent | b77917b0779eb63eaf87d21a6e6bb2d0eb3d215d (diff) | |
| download | perlweeklychallenge-club-161682ddda79400ed99207b39d74f86767e5ebdb.tar.gz perlweeklychallenge-club-161682ddda79400ed99207b39d74f86767e5ebdb.tar.bz2 perlweeklychallenge-club-161682ddda79400ed99207b39d74f86767e5ebdb.zip | |
- Improved Colorful Number task slightly.
Diffstat (limited to 'challenge-051/mohammad-anwar')
| -rw-r--r-- | challenge-051/mohammad-anwar/perl/ch-2.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-051/mohammad-anwar/perl/ch-2.pl b/challenge-051/mohammad-anwar/perl/ch-2.pl index 63a1d81da1..7b32e37aa7 100644 --- a/challenge-051/mohammad-anwar/perl/ch-2.pl +++ b/challenge-051/mohammad-anwar/perl/ch-2.pl @@ -7,6 +7,9 @@ use List::Util 1.45 qw(uniq); foreach my $i (100 .. 999) { my @N = split //, $i; + # Only try if all three digits are unique. + next if ( scalar(uniq(@N)) != scalar(@N) ); + my @S = ($N[0], $N[1], $N[2], ($N[0] * $N[1]), ($N[1] * $N[2]), ($N[0] * $N[1] * $N[2])); print "[$i] => [", join(", ", @S), "]\n" |