From 0d7cfcaef79ed5dbfc95618871f6766914df0dab Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 23 Jun 2025 08:41:14 +0200
Subject: Week 327, solutions in Raku by @ash

---
 challenge-327/ash/raku/ch-1.raku | 10 ++++++++++
 challenge-327/ash/raku/ch-2.raku | 12 ++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 challenge-327/ash/raku/ch-1.raku
 create mode 100644 challenge-327/ash/raku/ch-2.raku

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}
+}
-- 
cgit 


From d7c23d42cf0bc3103d7eab3a8e673ec1c97bace4 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 23 Jun 2025 08:49:10 +0200
Subject: alternative solution

---
 challenge-327/ash/raku/ch-1.raku  |  2 +-
 challenge-327/ash/raku/ch-2.raku  |  3 ++-
 challenge-327/ash/raku/ch-2a.raku | 14 ++++++++++++++
 3 files changed, 17 insertions(+), 2 deletions(-)
 create mode 100644 challenge-327/ash/raku/ch-2a.raku

diff --git a/challenge-327/ash/raku/ch-1.raku b/challenge-327/ash/raku/ch-1.raku
index 585654f380..74723abdc5 100644
--- a/challenge-327/ash/raku/ch-1.raku
+++ b/challenge-327/ash/raku/ch-1.raku
@@ -6,5 +6,5 @@ say missing-numbers(1, 1, 1); # 2, 3
 say missing-numbers(2, 2, 1); # 3
 
 sub missing-numbers(*@data) {
-    (1 .. @data.elems) (-) @data;
+    (1 .. @data.elems) (-) @data
 }
diff --git a/challenge-327/ash/raku/ch-2.raku b/challenge-327/ash/raku/ch-2.raku
index ffef15263e..6946b5f2e7 100644
--- a/challenge-327/ash/raku/ch-2.raku
+++ b/challenge-327/ash/raku/ch-2.raku
@@ -8,5 +8,6 @@ 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}
+
+    return @pairs.grep: {abs(.[0] - .[1]) == $min_diff};
 }
diff --git a/challenge-327/ash/raku/ch-2a.raku b/challenge-327/ash/raku/ch-2a.raku
new file mode 100644
index 0000000000..b9469d30e8
--- /dev/null
+++ b/challenge-327/ash/raku/ch-2a.raku
@@ -0,0 +1,14 @@
+# 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 $classification = @pairs.classify: {abs(.[0] - .[1])};
+    my $min_diff = $classification.keys.min;
+
+    return ($classification.first: *.key == $min_diff).value;
+}
-- 
cgit 


From 8bcc44355fcd02d7f3558d12ba3d792792adad2d Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 23 Jun 2025 08:50:10 +0200
Subject: extra variable

---
 challenge-327/ash/raku/ch-2a.raku | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-327/ash/raku/ch-2a.raku b/challenge-327/ash/raku/ch-2a.raku
index b9469d30e8..5da56beb51 100644
--- a/challenge-327/ash/raku/ch-2a.raku
+++ b/challenge-327/ash/raku/ch-2a.raku
@@ -6,8 +6,7 @@ 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 $classification = @pairs.classify: {abs(.[0] - .[1])};
+    my $classification = @data.combinations(2).classify: {abs(.[0] - .[1])};
     my $min_diff = $classification.keys.min;
 
     return ($classification.first: *.key == $min_diff).value;
-- 
cgit 


From 2e3cf0455510431c2b4027601ce2f2c87c02070c Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 23 Jun 2025 08:51:00 +0200
Subject: extra variable

---
 challenge-327/ash/raku/ch-2a.raku | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-327/ash/raku/ch-2a.raku b/challenge-327/ash/raku/ch-2a.raku
index 5da56beb51..1ef1f651a8 100644
--- a/challenge-327/ash/raku/ch-2a.raku
+++ b/challenge-327/ash/raku/ch-2a.raku
@@ -7,7 +7,6 @@ say mad(1, 5, 3, 8);      # [(1 3) (5 3)]
 
 sub mad(*@data) {
     my $classification = @data.combinations(2).classify: {abs(.[0] - .[1])};
-    my $min_diff = $classification.keys.min;
 
-    return ($classification.first: *.key == $min_diff).value;
+    return ($classification.first: *.key == $classification.keys.min).value;
 }
-- 
cgit