From 8ea8086138c6dd8e3d691070a56a9a664cddcf27 Mon Sep 17 00:00:00 2001 From: Andrew Shitov Date: Tue, 6 May 2025 09:05:11 +0200 Subject: Challenge 320, solutions by ash --- challenge-320/ash/raku/ch-1.raku | 11 +++++++++++ challenge-320/ash/raku/ch-1a.raku | 8 ++++++++ challenge-320/ash/raku/ch-2.raku | 8 ++++++++ 3 files changed, 27 insertions(+) create mode 100644 challenge-320/ash/raku/ch-1.raku create mode 100644 challenge-320/ash/raku/ch-1a.raku create mode 100644 challenge-320/ash/raku/ch-2.raku diff --git a/challenge-320/ash/raku/ch-1.raku b/challenge-320/ash/raku/ch-1.raku new file mode 100644 index 0000000000..077cd1fad6 --- /dev/null +++ b/challenge-320/ash/raku/ch-1.raku @@ -0,0 +1,11 @@ +# 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 = 1, 2, 3, 4; # 4 + +my @pos = @ints.grep: * > 0; +my @neg = @ints.grep: * < 0; + +say max(@pos.elems, @neg.elems); diff --git a/challenge-320/ash/raku/ch-1a.raku b/challenge-320/ash/raku/ch-1a.raku new file mode 100644 index 0000000000..e4917dbbbd --- /dev/null +++ b/challenge-320/ash/raku/ch-1a.raku @@ -0,0 +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 = 1, 2, 3, 4; # 4 + +say @ints.grep(* != 0).classify(* < 0)>>.elems.values.max; diff --git a/challenge-320/ash/raku/ch-2.raku b/challenge-320/ash/raku/ch-2.raku new file mode 100644 index 0000000000..26359ed294 --- /dev/null +++ b/challenge-320/ash/raku/ch-2.raku @@ -0,0 +1,8 @@ +# Task 2 of the Weekly Challenge 320 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-320/#TASK2 + +my @ints = 1, 23, 4, 5; # 18 +# my @ints = 1, 2, 3, 4, 5; # 0 +# my @ints = 1, 2, 34; # 27 + +say abs(@ints.sum - @ints.comb.sum); \ No newline at end of file -- cgit From b352d1a9bb5ac9e12ad6a41e5cbd04130d478f6a Mon Sep 17 00:00:00 2001 From: Andrew Shitov Date: Tue, 6 May 2025 09:06:23 +0200 Subject: nl --- challenge-320/ash/raku/ch-2.raku | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-320/ash/raku/ch-2.raku b/challenge-320/ash/raku/ch-2.raku index 26359ed294..d95dc5e6b0 100644 --- a/challenge-320/ash/raku/ch-2.raku +++ b/challenge-320/ash/raku/ch-2.raku @@ -5,4 +5,4 @@ my @ints = 1, 23, 4, 5; # 18 # my @ints = 1, 2, 3, 4, 5; # 0 # my @ints = 1, 2, 34; # 27 -say abs(@ints.sum - @ints.comb.sum); \ No newline at end of file +say abs(@ints.sum - @ints.comb.sum); -- cgit 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