Merge pull request #12004 from wambash/challenge-week-320

solutions week 320

2 files changed, 38 insertions, 0 deletions

diff --git a/challenge-320/wambash/raku/ch-1.raku b/challenge-320/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..d0ce7e9983
--- /dev/null
+++ b/challenge-320/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub maximum-count (+ints) {
+    ints
+    andthen .map: *.abs
+    andthen .max
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is maximum-count(-3,-2,-1,1,2,3),3;
+    is maximum-count(-2,-1,0,0,1),2;
+    is maximum-count(1,2,3,4),4;
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    say maximum-count ints
+}
diff --git a/challenge-320/wambash/raku/ch-2.raku b/challenge-320/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..9670ae377a
--- /dev/null
+++ b/challenge-320/wambash/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub sum-difference (+ints) {
+    ints
+    andthen .map: { $_ - .comb.sum }\
+    andthen .sum
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is sum-difference(1,23,4,5),18;
+    is sum-difference(1..5),0;
+    is sum-difference(1,2,34),27;
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    say sum-difference ints
+}