diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-03-02 13:27:34 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-03-02 13:27:34 -0700 |
| commit | 2abb870df550dbb002954d153ff2898b8725e161 (patch) | |
| tree | 10334d7603691c370e80f0b4fedb84558e1ad542 /challenge-050/mark-anderson | |
| parent | 232db85d01ad1654e0b2fa6893f83867ccc5788c (diff) | |
| download | perlweeklychallenge-club-2abb870df550dbb002954d153ff2898b8725e161.tar.gz perlweeklychallenge-club-2abb870df550dbb002954d153ff2898b8725e161.tar.bz2 perlweeklychallenge-club-2abb870df550dbb002954d153ff2898b8725e161.zip | |
Challenge 50 Solutions
Diffstat (limited to 'challenge-050/mark-anderson')
| -rw-r--r-- | challenge-050/mark-anderson/raku/ch-2.p6 | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/challenge-050/mark-anderson/raku/ch-2.p6 b/challenge-050/mark-anderson/raku/ch-2.p6 index 8c5cab0b1a..2a46867a16 100644 --- a/challenge-050/mark-anderson/raku/ch-2.p6 +++ b/challenge-050/mark-anderson/raku/ch-2.p6 @@ -2,14 +2,10 @@ my @L = [2, 6, 1, 3]; -for ^@L { - my $n = @L.shift; - - if $n <= @L.elems { +for @L -> $n { + if $n < @L.elems { if @L.grep(* > $n).elems == $n { say $n; } } - - @L.push($n); } |