diff options
| -rw-r--r-- | challenge-327/mark-anderson/raku/ch-1.raku | 12 | ||||
| -rw-r--r-- | challenge-327/mark-anderson/raku/ch-2.raku | 15 |
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 +} |
