diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-05-11 19:32:02 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-05-11 19:32:02 -0600 |
| commit | a4af6c68add0fbf90f7da9d8dc1337f54a77a05b (patch) | |
| tree | 538afc1aa0f2467a975cce00ff9f2551a62e9df8 /challenge-060/mark-anderson | |
| parent | d3d10252962e3a2f8a313df1a9590c492c16a35b (diff) | |
| download | perlweeklychallenge-club-a4af6c68add0fbf90f7da9d8dc1337f54a77a05b.tar.gz perlweeklychallenge-club-a4af6c68add0fbf90f7da9d8dc1337f54a77a05b.tar.bz2 perlweeklychallenge-club-a4af6c68add0fbf90f7da9d8dc1337f54a77a05b.zip | |
ch-2.raku
Diffstat (limited to 'challenge-060/mark-anderson')
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-2.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-060/mark-anderson/raku/ch-2.raku b/challenge-060/mark-anderson/raku/ch-2.raku index 18f2454d8c..eb3da74c55 100644 --- a/challenge-060/mark-anderson/raku/ch-2.raku +++ b/challenge-060/mark-anderson/raku/ch-2.raku @@ -8,8 +8,7 @@ sub MAIN (*@L where @L.all ~~ UInt) { my $list = @L>>.Str; my @ans = gather { - for (10**($x-1) .. (10**$x)-1) -> $num { - last if $num >= $y; + for (10**($x-1)..^$y) -> $num { my $digits = $num.comb; if $digits (<=) $list { |