diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-10 00:55:52 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-10 00:55:52 +0000 |
| commit | 705ede35a8b266fab54eeacab7cc92d102fa6b22 (patch) | |
| tree | 99a7969a0e87e16966209e80e281551b9a7bc84b /challenge-051 | |
| parent | 409d56f62aed5415e615d00c522838a34bcc18ff (diff) | |
| download | perlweeklychallenge-club-705ede35a8b266fab54eeacab7cc92d102fa6b22.tar.gz perlweeklychallenge-club-705ede35a8b266fab54eeacab7cc92d102fa6b22.tar.bz2 perlweeklychallenge-club-705ede35a8b266fab54eeacab7cc92d102fa6b22.zip | |
- Minor improvement.
Diffstat (limited to 'challenge-051')
| -rw-r--r-- | challenge-051/mohammad-anwar/perl/ch-2.pl | 2 | ||||
| -rw-r--r-- | challenge-051/mohammad-anwar/raku/ch-2.p6 | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/challenge-051/mohammad-anwar/perl/ch-2.pl b/challenge-051/mohammad-anwar/perl/ch-2.pl index 7b32e37aa7..233ae11929 100644 --- a/challenge-051/mohammad-anwar/perl/ch-2.pl +++ b/challenge-051/mohammad-anwar/perl/ch-2.pl @@ -5,7 +5,7 @@ use warnings; use List::Util 1.45 qw(uniq); -foreach my $i (100 .. 999) { +foreach my $i (102 .. 987) { my @N = split //, $i; # Only try if all three digits are unique. next if ( scalar(uniq(@N)) != scalar(@N) ); diff --git a/challenge-051/mohammad-anwar/raku/ch-2.p6 b/challenge-051/mohammad-anwar/raku/ch-2.p6 index b70b766bee..82f7fcaab0 100644 --- a/challenge-051/mohammad-anwar/raku/ch-2.p6 +++ b/challenge-051/mohammad-anwar/raku/ch-2.p6 @@ -6,6 +6,7 @@ sub MAIN() { for 102 .. 987 -> $i { my $j = $i.comb.unique.join; + # Only try if all three digits are unique. next if $i != $j; my @N = $i.comb; |