diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-10-02 07:27:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-10-02 07:27:33 +0100 |
| commit | 24d8b6971eeeb1966a91789f93e03ad45245afff (patch) | |
| tree | 6bf08fc1f137887736c64865759b3b94701c9a03 | |
| parent | 6ccd53c2fbc09fe545026829a1b35c51d501b4d0 (diff) | |
| parent | 8c674cac7be237a20bc23a9c4092528fc9713a57 (diff) | |
| download | perlweeklychallenge-club-24d8b6971eeeb1966a91789f93e03ad45245afff.tar.gz perlweeklychallenge-club-24d8b6971eeeb1966a91789f93e03ad45245afff.tar.bz2 perlweeklychallenge-club-24d8b6971eeeb1966a91789f93e03ad45245afff.zip | |
Merge pull request #2430 from andemark/branch-for-challenge-080
ch-2.raku do-over
| -rw-r--r-- | challenge-080/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/challenge-080/mark-anderson/raku/ch-2.raku b/challenge-080/mark-anderson/raku/ch-2.raku index d66070e3d3..e25ccaab56 100644 --- a/challenge-080/mark-anderson/raku/ch-2.raku +++ b/challenge-080/mark-anderson/raku/ch-2.raku @@ -10,10 +10,8 @@ say (@L2R Z @R2L.reverse).map(*.max).sum; sub candies(@N) { my @candies = 1 xx @N; - for @N.keys -> $k { - FIRST next; - - if @N[$k-1] < @N[$k] { + for @N.keys.skip -> $k { + if @N[$k] > @N[$k-1] { @candies[$k] = @candies[$k-1] + 1; } } |