From 79ff000a40a34f8c4f1e64a5ddcc23419b115131 Mon Sep 17 00:00:00 2001
From: Andrey Shitov <ash@Andreys-iMac.local>
Date: Tue, 14 Oct 2025 19:54:04 +0300
Subject: Task 1 Week 343 in Raku by @ash

---
 challenge-343/ash/raku/ch-1.raku | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-343/ash/raku/ch-1.raku

diff --git a/challenge-343/ash/raku/ch-1.raku b/challenge-343/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..426f964643
--- /dev/null
+++ b/challenge-343/ash/raku/ch-1.raku
@@ -0,0 +1,12 @@
+# Task 1 of The Weekly Challenge 343
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-343/#TASK1
+
+say dist [4, 2, -1, 3, -2]; # 1
+say dist [-5, 5, -3, 3, -1, 1]; # 1
+say dist [7, -3, 0, 2, -8]; # 0
+say dist [-2, -5, -1, -8]; # 1
+say dist [-2, 2, -4, 4, -1, 1]; # 1
+
+sub dist(@data) {
+    @data>>.abs.min
+}
-- 
cgit