aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--challenge-327/mark-anderson/raku/ch-1.raku12
-rw-r--r--challenge-327/mark-anderson/raku/ch-2.raku15
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
+}