From 222e79a281beb1a26359891d8298cb5087a87cd3 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Sun, 23 Oct 2022 01:34:37 +0000
Subject: ch-2.raku do-over

---
 challenge-187/mark-anderson/raku/ch-2.raku | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/challenge-187/mark-anderson/raku/ch-2.raku b/challenge-187/mark-anderson/raku/ch-2.raku
index accc086c9e..421570bdde 100644
--- a/challenge-187/mark-anderson/raku/ch-2.raku
+++ b/challenge-187/mark-anderson/raku/ch-2.raku
@@ -8,12 +8,7 @@ is-deeply max-magical-triplet(2, 4, 3),    (4, 3, 2);
 
 sub max-magical-triplet(+$list)
 {
-    $list.combinations(3)
-         .flat
-         .grep({ [and] $^a + $^b > $^c,
-                       $^b + $^c > $^a, 
-                       $^a + $^c > $^b })
-         .map({ .sort(-*) })
-         andthen
-         .elems ?? .max !! Empty.List
+    $list.sort(-*)
+         .rotor(3 => -2)
+         .first({ .[0] < .[1] + .[2] }) // Empty.List
 }
-- 
cgit