diff options
| -rw-r--r-- | challenge-122/simon-proctor/raku/ch-2.raku | 11 |
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(",") ) +} |