From 17827394e9b1931098ee64ce16d09f16d948472d Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Thu, 23 May 2024 03:32:43 +0000
Subject: ch-1.raku yet again

---
 challenge-270/mark-anderson/raku/ch-1.raku | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index 6babc2f8e3..8c3e8a8152 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -17,6 +17,6 @@ sub special-positions(@m)
 {
     my $cols = @m.map({ .grep(1, :k).List }).List;
     my $uniq-cols = ($cols.flat (-) $cols.flat.repeated).keys.List;
-    my $rows = $cols.grep(*.elems == 1);
-    ($rows (&) $uniq-cols).elems
+    my $rows = $cols.grep(1);
+    + ($rows (&) $uniq-cols)
 }
-- 
cgit