Merge pull request #8150 from wambash/challenge-week-218

solution week 218-1

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-218/wambash/raku/ch-1.raku b/challenge-218/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..92631d7b89
--- /dev/null
+++ b/challenge-218/wambash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+sub maximum-product (+@list) {
+    @list
+    andthen .sort.cache
+    andthen ([*] .tail(3)) max ([*] |.head(2), .tail)
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is maximum-product(3, 1, 2),6;
+    is maximum-product(4, 1, 3, 2),24;
+    is maximum-product(-1, 0, 1, 3, 1),3;
+    is maximum-product(-8, 2, -9, 0, -4, 3), 216;
+    done-testing;
+}
+
+multi MAIN (*@list) {
+    say maximum-product @list
+}