From 407e84152bc1d8a8605ef8c0b12e59350bc62345 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 22 Apr 2024 14:24:28 +0000
Subject: Challenge 266 Solutions (Raku)

---
 challenge-266/mark-anderson/raku/ch-2.raku | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-266/mark-anderson/raku/ch-2.raku b/challenge-266/mark-anderson/raku/ch-2.raku
index 51b303c159..f0456a61b2 100644
--- a/challenge-266/mark-anderson/raku/ch-2.raku
+++ b/challenge-266/mark-anderson/raku/ch-2.raku
@@ -183,8 +183,7 @@ sub X-matrix(+@m)
     my @diags = gather for $diags Z @replace -> ($d, $r)
     {
         my ($row, $col, $replace) = |$d, $r;
-        take @m[$row;$col];
-        @m[$row;$col] = $replace
+        take @m[$row].splice($col,1,$replace).head
     }
 
     all(all |@diags, none @m[*;*])
-- 
cgit