diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-03-03 05:27:52 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-03-03 05:27:52 -0700 |
| commit | ff297d68111ca19fa97b0ba3a8de78171e44438e (patch) | |
| tree | 0ce42141a7da0a3b9b20b277d527978a5c1559fc /challenge-050/mark-anderson | |
| parent | a3fd52a5feab5d910c4482c0a5c21b94e507c0ad (diff) | |
| download | perlweeklychallenge-club-ff297d68111ca19fa97b0ba3a8de78171e44438e.tar.gz perlweeklychallenge-club-ff297d68111ca19fa97b0ba3a8de78171e44438e.tar.bz2 perlweeklychallenge-club-ff297d68111ca19fa97b0ba3a8de78171e44438e.zip | |
ch-2.p6 again
Diffstat (limited to 'challenge-050/mark-anderson')
| -rw-r--r-- | challenge-050/mark-anderson/raku/ch-2.p6 | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/challenge-050/mark-anderson/raku/ch-2.p6 b/challenge-050/mark-anderson/raku/ch-2.p6 index 2a46867a16..678ecc2d99 100644 --- a/challenge-050/mark-anderson/raku/ch-2.p6 +++ b/challenge-050/mark-anderson/raku/ch-2.p6 @@ -2,10 +2,7 @@ my @L = [2, 6, 1, 3]; -for @L -> $n { - if $n < @L.elems { - if @L.grep(* > $n).elems == $n { - say $n; - } - } -} +@L ==> +grep { $_ < @L.elems } ==> # skip numbers that aren't possible +first { @L.grep(* > $_).elems == $_ } ==> # I'm trusting there can only be 1 +say(); |