From 8c674cac7be237a20bc23a9c4092528fc9713a57 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Fri, 2 Oct 2020 00:20:24 -0600 Subject: ch-2.raku do-over --- challenge-080/mark-anderson/raku/ch-2.raku | 6 ++---- 1 file 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; } } -- cgit