diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-10 09:34:06 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-10 09:34:06 +0000 |
| commit | 4390a6f5bf58d2e32dc18e2507988debea8f6f86 (patch) | |
| tree | 8f22fe0caa349fc1d4fd26e59733c152b998f01b /challenge-051 | |
| parent | 3e1ee28fce012275429c793d6d584cf064467548 (diff) | |
| download | perlweeklychallenge-club-4390a6f5bf58d2e32dc18e2507988debea8f6f86.tar.gz perlweeklychallenge-club-4390a6f5bf58d2e32dc18e2507988debea8f6f86.tar.bz2 perlweeklychallenge-club-4390a6f5bf58d2e32dc18e2507988debea8f6f86.zip | |
- Minor improvement by moving the start point.
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 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-051/mohammad-anwar/perl/ch-2.pl b/challenge-051/mohammad-anwar/perl/ch-2.pl index 233ae11929..4d21e6c9da 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 (102 .. 987) { +foreach my $i (234 .. 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 82f7fcaab0..dd88253310 100644 --- a/challenge-051/mohammad-anwar/raku/ch-2.p6 +++ b/challenge-051/mohammad-anwar/raku/ch-2.p6 @@ -4,7 +4,7 @@ use v6; sub MAIN() { - for 102 .. 987 -> $i { + for 234 .. 987 -> $i { my $j = $i.comb.unique.join; # Only try if all three digits are unique. next if $i != $j; |