From 0321b2f89be26b644aa6f86d4ded0e2a3d9f8f98 Mon Sep 17 00:00:00 2001 From: Andrew Shitov Date: Tue, 6 May 2025 09:08:22 +0200 Subject: simplify --- challenge-320/ash/raku/ch-1a.raku | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/challenge-320/ash/raku/ch-1a.raku b/challenge-320/ash/raku/ch-1a.raku index e4917dbbbd..dd1036373c 100644 --- a/challenge-320/ash/raku/ch-1a.raku +++ b/challenge-320/ash/raku/ch-1a.raku @@ -1,8 +1,8 @@ # Task 1 of the Weekly Challenge 320 # https://theweeklychallenge.org/blog/perl-weekly-challenge-320/#TASK1 -my @ints = -3, -2, -1, 1, 2, 3; # 3 -# my @ints = -2, -1, 0, 0, 1; # 2 +# my @ints = -3, -2, -1, 1, 2, 3; # 3 +my @ints = -2, -1, 0, 0, 1; # 2 # my @ints = 1, 2, 3, 4; # 4 -say @ints.grep(* != 0).classify(* < 0)>>.elems.values.max; +say @ints.grep(*).classify(* < 0)>>.elems.values.max; -- cgit