Merge pull request #12232 from andemark/challenge-327

Challenge 327 Solutions (Raku)

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-327/mark-anderson/raku/ch-1.raku b/challenge-327/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..0c449c9e14
--- /dev/null
+++ b/challenge-327/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply missing-integers(1,2,1,3,2,5), (4,6);
+is-deeply missing-integers(1,1,1),       (2,3);
+is-deeply missing-integers(2,2,1),       (3,);
+is-deeply missing-integers(2,1),         ();
+
+sub missing-integers(+@ints)
+{
+    ((1..@ints) (-) @ints).keys.sort
+}
diff --git a/challenge-327/mark-anderson/raku/ch-2.raku b/challenge-327/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..9d422b0664
--- /dev/null
+++ b/challenge-327/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply MAD(4,1,2,3),     [(1,2),(2,3),(3,4)];
+is-deeply MAD(1,3,7,11,15), [(1,3),];
+is-deeply MAD(1,5,3,8),     [(1,3),(3,5)];
+
+sub MAD(+@ints)
+{
+    @ints.sort
+         .rotor(2 => -1)
+         .classify({ .[1] - .[0] })
+         .min
+         .value
+}