diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-05-14 08:20:05 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-05-14 08:20:05 +0100 |
| commit | 908c7104a1904575854342ba63c1aec7a759df6a (patch) | |
| tree | 6aa90215ba0894ecc236f9f021c91a17efec414b | |
| parent | c15d238872189b8a322196e8c57229617319a86e (diff) | |
| parent | 83d80774c09d8c6fbb9caf170b24dbd45d176eb0 (diff) | |
| download | perlweeklychallenge-club-908c7104a1904575854342ba63c1aec7a759df6a.tar.gz perlweeklychallenge-club-908c7104a1904575854342ba63c1aec7a759df6a.tar.bz2 perlweeklychallenge-club-908c7104a1904575854342ba63c1aec7a759df6a.zip | |
Merge pull request #1714 from andemark/branch-for-challenge-060
ch-2.raku do-over
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-2.raku | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/challenge-060/mark-anderson/raku/ch-2.raku b/challenge-060/mark-anderson/raku/ch-2.raku index d3e4b676fe..f2bf6b5728 100644 --- a/challenge-060/mark-anderson/raku/ch-2.raku +++ b/challenge-060/mark-anderson/raku/ch-2.raku @@ -3,17 +3,8 @@ # Usage: raku ch-2.raku 0 1 2 5 2 21 sub MAIN (*@L where @L.all ~~ UInt) { - my $y = @L.pop; - my $x = @L.pop; - my $list = @L>>.Str; + my $Y = @L.pop; + my $X = @L.pop; - 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(", "); } |