diff options
| -rw-r--r-- | challenge-270/mark-anderson/raku/ch-1.raku | 22 |
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) +} |