Merge pull request #11987 from ash/ash-320

Challenge 320, solutions by ash

3 files changed, 27 insertions, 0 deletions

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..dd1036373c
--- /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(*).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..d95dc5e6b0
--- /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);