From dec0fca890bae3f8018270663da582d87037a141 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 20 May 2024 07:14:38 +0000
Subject: ch-1.raku

---
 challenge-270/mark-anderson/raku/ch-1.raku | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 challenge-270/mark-anderson/raku/ch-1.raku

diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..bc0a28297c
--- /dev/null
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+use Test;
+
+is special-positions([ 
+                         [1,0,0],
+                         [0,0,1],
+                         [1,0,0],
+                     ]),               1;
+
+is special-positions([ 
+                         [1,0,0],
+                         [0,1,0],
+                         [0,0,1],
+                     ]),               3;
+
+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