From f427d52abe1564b1bbccabd37903fc9f0b47ba01 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 19 Feb 2024 17:20:34 +0000
Subject: Challenge 257 Solutions (Raku)

---
 challenge-257/mark-anderson/raku/ch-2.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-257/mark-anderson/raku/ch-2.raku b/challenge-257/mark-anderson/raku/ch-2.raku
index d727e72118..5d547b6316 100644
--- a/challenge-257/mark-anderson/raku/ch-2.raku
+++ b/challenge-257/mark-anderson/raku/ch-2.raku
@@ -53,5 +53,5 @@ sub reduced-row-echelon(+@m)
     return False unless [<] @pivots>>[0];
 
     # pivot columns are all 0 (except for the 1)
-    return all @pivots>>[0].map({ @m[*;$_].sum == 1 })
+    return all(([Z] @m)[@pivots>>[0]]>>.sum) == 1
 }
-- 
cgit