diff options
| author | Mark Anderson <mark@andemark.io> | 2025-10-27 05:42:25 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2025-10-27 05:42:25 +0000 |
| commit | 13256a8339f0e90a9d7ede9fe35c441bbfebde78 (patch) | |
| tree | 3767e15ffa4591a56a76b3d835f94299df179235 | |
| parent | 6706a7a33b611995783292a1e5f677fa7a02aba7 (diff) | |
| download | perlweeklychallenge-club-13256a8339f0e90a9d7ede9fe35c441bbfebde78.tar.gz perlweeklychallenge-club-13256a8339f0e90a9d7ede9fe35c441bbfebde78.tar.bz2 perlweeklychallenge-club-13256a8339f0e90a9d7ede9fe35c441bbfebde78.zip | |
Challenge 345 Solutions (Raku)
| -rw-r--r-- | challenge-345/mark-anderson/raku/ch-2.raku | 6 |
1 files 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 |