diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-02 00:20:24 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-02 00:20:24 -0600 |
| commit | 8c674cac7be237a20bc23a9c4092528fc9713a57 (patch) | |
| tree | 8423f6b67fcb3502699fd14db4a97b33e32c432f | |
| parent | cbb484dfddf8c916e47fcced0a909bbf13c9d172 (diff) | |
| download | perlweeklychallenge-club-8c674cac7be237a20bc23a9c4092528fc9713a57.tar.gz perlweeklychallenge-club-8c674cac7be237a20bc23a9c4092528fc9713a57.tar.bz2 perlweeklychallenge-club-8c674cac7be237a20bc23a9c4092528fc9713a57.zip | |
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; } } |