diff options
| -rw-r--r-- | challenge-320/ash/raku/ch-1a.raku | 6 |
1 files 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; |