From af73e1c6b671bf8a0eb6e824bd0fb66330800c54 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@andemark.io>
Date: Mon, 12 May 2025 09:09:12 +0000
Subject: Challenge 321 Solutions (Raku)

---
 challenge-321/mark-anderson/raku/ch-1.raku | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'challenge-321')

diff --git a/challenge-321/mark-anderson/raku/ch-1.raku b/challenge-321/mark-anderson/raku/ch-1.raku
index 3998ef3278..1c9b17dda0 100644
--- a/challenge-321/mark-anderson/raku/ch-1.raku
+++ b/challenge-321/mark-anderson/raku/ch-1.raku
@@ -5,6 +5,10 @@ is distinct-average(1,2,4,3,5,6), 1;
 is distinct-average(0,2,4,8,3,5), 2;
 is distinct-average(7,3,1,0,5,9), 2;
 
+=begin slow
+
+Yikes! I didn't realize how slow this was 😱
+
 sub distinct-average(+@nums)
 {
     .unique.elems given @nums.map(
@@ -17,3 +21,15 @@ sub distinct-average(+@nums)
         ($min[1] + $max[1]) / 2
     })
 }
+
+=end slow
+
+sub distinct-average(+@nums)
+{
+    @nums .= sort;
+
+    .unique.elems given do while @nums
+    {
+        (@nums.shift + @nums.pop) / 2 
+    }
+}
-- 
cgit