diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-05-24 12:42:17 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-05-24 12:42:17 +0100 |
| commit | 418b5a5df778c4fc8d27789427061eb1689dbc44 (patch) | |
| tree | 2499c88938f82c798152a3470ab2d78be0ae3a32 | |
| parent | badfecd49fcfc1aacd133eeb741dca2196f69299 (diff) | |
| parent | e3748d9f0832a47e066fae13df2d8ce689029135 (diff) | |
| download | perlweeklychallenge-club-418b5a5df778c4fc8d27789427061eb1689dbc44.tar.gz perlweeklychallenge-club-418b5a5df778c4fc8d27789427061eb1689dbc44.tar.bz2 perlweeklychallenge-club-418b5a5df778c4fc8d27789427061eb1689dbc44.zip | |
Merge pull request #10140 from andemark/challenge-270
ch-1.raku yet again
| -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) } |