Merge pull request #10134 from andemark/challenge-270

ch-1.raku

1 files changed, 22 insertions, 0 deletions

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..99db6da982
--- /dev/null
+++ b/challenge-270/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!/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 @rows =      @m .map({ ($++,          .grep(1, :k)).join("|") });
+    my @cols = ([Z] @m).map({ (.grep(1, :k), $++         ).join("|") });
+
+    + (@rows (&) @cols)
+}