diff options
| -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 { |