Challenge 2

1 files changed, 11 insertions, 0 deletions

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(",") )
+}