Week 327, solutions in Raku by @ash

2 files changed, 22 insertions, 0 deletions

diff --git a/challenge-327/ash/raku/ch-1.raku b/challenge-327/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..585654f380
--- /dev/null
+++ b/challenge-327/ash/raku/ch-1.raku
@@ -0,0 +1,10 @@
+# Task 1 of the Weekly Challenge 327
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-327/#TASK1
+
+say missing-numbers(1, 2, 1, 3, 2, 5); # 4, 6
+say missing-numbers(1, 1, 1); # 2, 3
+say missing-numbers(2, 2, 1); # 3
+
+sub missing-numbers(*@data) {
+    (1 .. @data.elems) (-) @data;
+}
diff --git a/challenge-327/ash/raku/ch-2.raku b/challenge-327/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..ffef15263e
--- /dev/null
+++ b/challenge-327/ash/raku/ch-2.raku
@@ -0,0 +1,12 @@
+# Task 2 of the Weekly Challenge 327
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-327/#TASK2
+
+say mad(4, 1, 2, 3);      # ((4 3) (1 2) (2 3))
+say mad(1, 3, 7, 11, 15); # ((1 3))
+say mad(1, 5, 3, 8);      # ((1 3) (5 3))
+
+sub mad(*@data) {
+    my @pairs = @data.combinations(2);
+    my $min_diff = min(@pairs.map: {abs(.[0] - .[1])});
+    return @pairs.grep: {abs(.[0] - .[1]) == $min_diff}
+}