From 8a115122b7ac91139158987b296526c95ba1c765 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 11 May 2025 20:06:20 +0200
Subject: solutions week 320

---
 challenge-320/wambash/raku/ch-1.raku | 19 +++++++++++++++++++
 challenge-320/wambash/raku/ch-2.raku | 19 +++++++++++++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 challenge-320/wambash/raku/ch-1.raku
 create mode 100644 challenge-320/wambash/raku/ch-2.raku

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
+}
-- 
cgit