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