Merge pull request #7462 from carlos157oliveira/challenge-201

solution to challenge 201

Author: manwar

challenge-201/carlos-oliveira/raku/ch-1.raku

@@ -0,0 +1,9 @@
+use Test;
+
+sub missing-numbers (Int:D @numbers --> Set:D[Int:D]) {
+  return ((0..@numbers) (-) @numbers);
+}
+
+is-deeply missing-numbers(my Int @ = 0,1,3),     Set.new(2);
+is-deeply missing-numbers(my Int @ = 0,1),       Set.new(2);
+is-deeply missing-numbers(my Int @ = 0,5,5,4,5), Set.new(1,2,3);

challenge-201/carlos-oliveira/raku/ch-2.raku

@@ -0,0 +1,17 @@
+sub pile-pennies (UInt:D $n) {
+  # repeat elements to treat the problem as a combination with repetition
+  my @elements-with-repetition = (1..$n).map({ $_ xx $n }).flat;
+
+  for @elements-with-repetition
+    .combinations(1..$n)
+    .grep(*.sum == $n)
+    .unique(:with(&infix:<eqv>))
+    .reverse -> @row
+  {
+    say @row.join: ' ';
+  }
+}
+
+pile-pennies 5;
+print "\n";
+pile-pennies 6;