From ecb612591c012ba4de6480192e0e049ec8d17f00 Mon Sep 17 00:00:00 2001
From: Scimon Proctor <simon.proctor@gmail.com>
Date: Mon, 19 Jul 2021 09:56:06 +0100
Subject: Challenge 2

---
 challenge-122/simon-proctor/raku/ch-2.raku | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 challenge-122/simon-proctor/raku/ch-2.raku

diff --git a/challenge-122/simon-proctor/raku/ch-2.raku b/challenge-122/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..1c10942d42
--- /dev/null
+++ b/challenge-122/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+#| Given a number print all the possible ways to score that in basketball
+sub MAIN (Int() $N) {
+    .say for (|(1 xx $N), |(2 xx $N), |(3 xx $N))
+    .combinations(1..$N)
+    .unique(:with(&[eqv]))
+    .grep( -> @l { ([+] @l) ~~ $N } )
+    .map( -> @l { @l.permutations.unique(:with(&[eqv])).Slip } )
+    .map( *.join(",") )
+}
-- 
cgit