From 13256a8339f0e90a9d7ede9fe35c441bbfebde78 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 27 Oct 2025 05:42:25 +0000 Subject: Challenge 345 Solutions (Raku) --- challenge-345/mark-anderson/raku/ch-2.raku | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/challenge-345/mark-anderson/raku/ch-2.raku b/challenge-345/mark-anderson/raku/ch-2.raku index 100e34e242..ad1adfdec5 100644 --- a/challenge-345/mark-anderson/raku/ch-2.raku +++ b/challenge-345/mark-anderson/raku/ch-2.raku @@ -13,12 +13,10 @@ is last-visitor(@arr), last-visitor-alternate(@arr); sub last-visitor(@ints) { - my @ans; my @seen; - my $seq = flat (@ints.head > 0 ?? (* > 0, * == -1) !! (* == -1, * > 0)) xx *; - my @snip = @ints.snip: $seq; + my @snip = @ints.snip: flat (@ints.head > 0 ?? (* > 0, * == -1) !! (* == -1, * > 0)) xx *; - @ans.append: @snip.shift.flat if @snip.head.head == -1; + my @ans.append: @snip.shift.flat if @snip.head.head == -1; @snip.pop if @snip.tail.tail > 0; for @snip -> @pos, @neg-ones -- cgit