Merge pull request #9132 from wambash/challenge-week-244

solutions week 244

2 files changed, 39 insertions, 0 deletions

diff --git a/challenge-244/wambash/raku/ch-1.raku b/challenge-244/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..3d8dc55b1f
--- /dev/null
+++ b/challenge-244/wambash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+sub count-smaller (+nums) {
+    nums.map: {
+        $_ X> nums
+        andthen .sum
+    }
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is count-smaller(8,1,2,2,3),(4,0,1,1,3);
+    is count-smaller(6,5,4,8),(2,1,0,3);
+    is count-smaller(2,2,2),(0,0,0);
+    done-testing;
+}
+
+multi MAIN (+nums) {
+    put count-smaller nums
+}
diff --git a/challenge-244/wambash/raku/ch-2.raku b/challenge-244/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..833666737e
--- /dev/null
+++ b/challenge-244/wambash/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub group-hero (+nums) {
+    nums
+    andthen .combinations
+    andthen .skip
+    andthen .map: { .max² * .min }\
+    andthen .sum
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is group-hero(2,1,4),141;
+    done-testing;
+}
+
+multi MAIN (+nums) {
+    say group-hero nums
+}