Challenge 321 Solutions (Raku)

1 files changed, 16 insertions, 0 deletions

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