From 61fb69f0898c6c0541221e364e0874a66bf9e7cf Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Thu, 23 May 2024 01:04:31 +0000
Subject: ch-1.raku yet again

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

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index 99db6da982..e4f09baed1 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -15,8 +15,9 @@ is special-positions([
 
 sub special-positions(@m)
 {
-    my @rows =      @m .map({ ($++,          .grep(1, :k)).join("|") });
-    my @cols = ([Z] @m).map({ (.grep(1, :k), $++         ).join("|") });
-
-    + (@rows (&) @cols)
+    my @indices = @m.map({ $++, .grep(1, :k).List });
+    my @cols = flat @indices>>.[1];
+    @cols = (@cols (-) @cols.repeated).keys;
+    @indices .= grep(*.[1] == 1);
+   (@indices>>.[1] (&) @cols).elems
 }
-- 
cgit 


From 9d0c5ca88a0b3a711174e4a6ac9037364d08d882 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Thu, 23 May 2024 02:58:21 +0000
Subject: ch-1.raku yet again

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

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index e4f09baed1..6babc2f8e3 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -15,9 +15,8 @@ is special-positions([
 
 sub special-positions(@m)
 {
-    my @indices = @m.map({ $++, .grep(1, :k).List });
-    my @cols = flat @indices>>.[1];
-    @cols = (@cols (-) @cols.repeated).keys;
-    @indices .= grep(*.[1] == 1);
-   (@indices>>.[1] (&) @cols).elems
+    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
 }
-- 
cgit 


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 


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

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

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index 8c3e8a8152..e1972ea18c 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -17,6 +17,5 @@ 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(1);
-    + ($rows (&) $uniq-cols)
+    + ($cols.grep(1) (&) $uniq-cols)
 }
-- 
cgit