From 0429fdd2f5bfb40375aa5d92ad411cc54eb90d9a Mon Sep 17 00:00:00 2001
From: Lucas Ransan <lucas@ransan.tk>
Date: Mon, 19 Jul 2021 16:51:26 +0200
Subject: Raku week 122 task 2

---
 challenge-122/luc65r/raku/ch-2.raku | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 challenge-122/luc65r/raku/ch-2.raku

diff --git a/challenge-122/luc65r/raku/ch-2.raku b/challenge-122/luc65r/raku/ch-2.raku
new file mode 100755
index 0000000000..53d91e2718
--- /dev/null
+++ b/challenge-122/luc65r/raku/ch-2.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+
+use experimental :cached;
+
+proto score(UInt:D --> Seq) is cached {*}
+
+multi score(0) { [], }
+
+multi score($n) {
+    gather for 1..3 -> $i {
+        with try score($n - $i) -> @s {
+            for @s {
+                take [$i, |@_];
+            }
+        }
+    }
+}
+
+sub MAIN(UInt $n) {
+    .join(' ').say for score $n;
+}
-- 
cgit