diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-01-31 02:09:00 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-01-31 02:09:00 +0000 |
| commit | a91c92d5683d263845ed2ae08af470a276535ca4 (patch) | |
| tree | 370ea7753e3f204749926c0894e3cc6caeab4a5f /challenge-202 | |
| parent | bfb8150b8ba3e7b7b5c3218c48e558e611a43bf7 (diff) | |
| download | perlweeklychallenge-club-a91c92d5683d263845ed2ae08af470a276535ca4.tar.gz perlweeklychallenge-club-a91c92d5683d263845ed2ae08af470a276535ca4.tar.bz2 perlweeklychallenge-club-a91c92d5683d263845ed2ae08af470a276535ca4.zip | |
Initial 202 (Raku)
Diffstat (limited to 'challenge-202')
| -rw-r--r-- | challenge-202/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-202/mark-anderson/raku/ch-2.raku b/challenge-202/mark-anderson/raku/ch-2.raku index 5e610ce5c3..d29886a5f8 100644 --- a/challenge-202/mark-anderson/raku/ch-2.raku +++ b/challenge-202/mark-anderson/raku/ch-2.raku @@ -17,7 +17,7 @@ sub widest-valley(*@a) my $k = ([\>=] @a).first({ .not }, :k) // @a.elems; @decreasing.push: @a.splice(0, $k, @a[$k-1]); - $k = ([\<=] @a).first({ .not }, :k) || @a.elems; + $k = ([\<=] @a).first({ .not }, :k) // @a.elems; @increasing.push: @a.splice(0, $k, @a[$k-1]); } |