diff options
| -rw-r--r-- | challenge-270/mark-anderson/raku/ch-1.raku | 7 |
1 files changed, 3 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..e1972ea18c 100644 --- a/challenge-270/mark-anderson/raku/ch-1.raku +++ b/challenge-270/mark-anderson/raku/ch-1.raku @@ -15,8 +15,7 @@ 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 $cols = @m.map({ .grep(1, :k).List }).List; + my $uniq-cols = ($cols.flat (-) $cols.flat.repeated).keys.List; + + ($cols.grep(1) (&) $uniq-cols) } |