From 47fa5ee81005f6ef22d1e70ec7084c742006503a Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 20 May 2024 18:05:34 +0000
Subject: ch-1.raku

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

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index bc0a28297c..a7b7e32471 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -15,9 +15,15 @@ is special-positions([
 
 sub special-positions(@m)
 {
-    my @ones = (^@m X ^@m[0]).grep({ @m[.[0];.[1]] });
-
-    +  @ones.grep({ all .[0] == one(@ones>>.[0]), 
-                        .[1] == one(@ones>>.[1])
-                  })
+    my $b = bag @m>>.grep(* == 1, :k);        
+    + $b.values.grep(* == 1)
 }
+
+# sub special-positions(@m)
+# {
+#    my @ones = (^@m X ^@m[0]).grep({ @m[.[0];.[1]] });
+#
+#    +  @ones.grep({ all .[0] == one(@ones>>.[0]), 
+#                        .[1] == one(@ones>>.[1])
+#                  })
+# }
-- 
cgit 


From 5c56e797482249183a896a7f6d8a6e8ddb7d86fe Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 20 May 2024 18:10:45 +0000
Subject: ch-1.raku

---
 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 a7b7e32471..c686670909 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -15,8 +15,8 @@ is special-positions([
 
 sub special-positions(@m)
 {
-    my $b = bag @m>>.grep(* == 1, :k);        
-    + $b.values.grep(* == 1)
+    my $b = bag @m>>.grep(1, :k);        
+    + $b.values.grep(1)
 }
 
 # sub special-positions(@m)
-- 
cgit 


From 3de4f4bbb021b68f901af75aa8ad80f4568eb5ba Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 20 May 2024 18:19:01 +0000
Subject: ch-1.raku

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

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index c686670909..c00e722b4f 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -16,7 +16,7 @@ is special-positions([
 sub special-positions(@m)
 {
     my $b = bag @m>>.grep(1, :k);        
-    + $b.values.grep(1)
+    +  $b.values.grep(1)
 }
 
 # sub special-positions(@m)
-- 
cgit 


From d48d906ff27a8595770c5f0e16238aa3c7d29228 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Tue, 21 May 2024 06:04:21 +0000
Subject: ch-1.raku

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

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index c00e722b4f..213d8987f4 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -15,15 +15,9 @@ is special-positions([
 
 sub special-positions(@m)
 {
-    my $b = bag @m>>.grep(1, :k);        
-    +  $b.values.grep(1)
-}
+   my @ones = (^@m X ^@m[0]).grep({ @m[.[0];.[1]] });
 
-# sub special-positions(@m)
-# {
-#    my @ones = (^@m X ^@m[0]).grep({ @m[.[0];.[1]] });
-#
-#    +  @ones.grep({ all .[0] == one(@ones>>.[0]), 
-#                        .[1] == one(@ones>>.[1])
-#                  })
-# }
+   +  @ones.grep({ all .[0] == one(@ones>>.[0]), 
+                       .[1] == one(@ones>>.[1])
+                 })
+}
-- 
cgit 


From ce76e812bc5046e95203adcea1686182969be12d Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Tue, 21 May 2024 07:02:41 +0000
Subject: ch-1.raku

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

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
index 213d8987f4..b39ed7df06 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -15,9 +15,6 @@ is special-positions([
 
 sub special-positions(@m)
 {
-   my @ones = (^@m X ^@m[0]).grep({ @m[.[0];.[1]] });
-
-   +  @ones.grep({ all .[0] == one(@ones>>.[0]), 
-                       .[1] == one(@ones>>.[1])
-                 })
+    @m .=      grep(*.grep(1).one);
+    + ([Z] @m).grep(*.grep(1).one)
 }
-- 
cgit 


From f97c3980ceb9e55f7e1c60abcf9a7171db8f96bc Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Tue, 21 May 2024 07:17:30 +0000
Subject: ch-1.raku

---
 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 b39ed7df06..6503db87f3 100644
--- a/challenge-270/mark-anderson/raku/ch-1.raku
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -15,6 +15,6 @@ is special-positions([
 
 sub special-positions(@m)
 {
-    @m .=      grep(*.grep(1).one);
-    + ([Z] @m).grep(*.grep(1).one)
+    @m .=      grep(*.one);
+    + ([Z] @m).grep(*.one)
 }
-- 
cgit