diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-05-14 01:18:04 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-05-14 01:18:04 -0600 |
| commit | 83d80774c09d8c6fbb9caf170b24dbd45d176eb0 (patch) | |
| tree | 540a873773079e12a42f39b2b96073c89b5fd34f | |
| parent | 4820af2a1c492ba1e4f1c3a8811d24700efc8612 (diff) | |
| download | perlweeklychallenge-club-83d80774c09d8c6fbb9caf170b24dbd45d176eb0.tar.gz perlweeklychallenge-club-83d80774c09d8c6fbb9caf170b24dbd45d176eb0.tar.bz2 perlweeklychallenge-club-83d80774c09d8c6fbb9caf170b24dbd45d176eb0.zip | |
ch-2.raku do-over
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-060/mark-anderson/raku/ch-2.raku b/challenge-060/mark-anderson/raku/ch-2.raku index 86f3e1337e..f2bf6b5728 100644 --- a/challenge-060/mark-anderson/raku/ch-2.raku +++ b/challenge-060/mark-anderson/raku/ch-2.raku @@ -3,8 +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 $Y = @L.pop; + my $X = @L.pop; - say ([X~] @L xx $x).grep(/^<-[0]>/).grep(* < $y).join(", "); + say ([X~] @L xx $X).grep(* !~~ /^0/).grep(* < $Y).join(", "); } |