diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-05-13 18:54:53 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-05-13 18:54:53 -0600 |
| commit | 4820af2a1c492ba1e4f1c3a8811d24700efc8612 (patch) | |
| tree | fa8d94c801d19a7d2fc44c44571d6404c47c7531 | |
| parent | 9f1d5224cadaf3d5b161844db9e1522655d5fb87 (diff) | |
| download | perlweeklychallenge-club-4820af2a1c492ba1e4f1c3a8811d24700efc8612.tar.gz perlweeklychallenge-club-4820af2a1c492ba1e4f1c3a8811d24700efc8612.tar.bz2 perlweeklychallenge-club-4820af2a1c492ba1e4f1c3a8811d24700efc8612.zip | |
ch-2.raku do-over
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-2.raku | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/challenge-060/mark-anderson/raku/ch-2.raku b/challenge-060/mark-anderson/raku/ch-2.raku index d3e4b676fe..86f3e1337e 100644 --- a/challenge-060/mark-anderson/raku/ch-2.raku +++ b/challenge-060/mark-anderson/raku/ch-2.raku @@ -5,15 +5,6 @@ sub MAIN (*@L where @L.all ~~ UInt) { my $y = @L.pop; my $x = @L.pop; - my $list = @L>>.Str; - my @ans = gather { - for (10**($x-1)..^$y) -> $num { - if $num.comb (<=) $list { - take $num; - } - } - } - - say @ans.join(", "); + say ([X~] @L xx $x).grep(/^<-[0]>/).grep(* < $y).join(", "); } |