diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-05-21 13:44:51 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-05-21 13:44:51 +0100 |
| commit | ccd5fa822acb6b1c0612341d9f2c7f306ad02a17 (patch) | |
| tree | f2b47f56edea0f31957e3afc43d188a97fa15bc3 | |
| parent | 6ce76558f353f26bf6228db9092b2d8fd4f1c4f5 (diff) | |
| parent | f97c3980ceb9e55f7e1c60abcf9a7171db8f96bc (diff) | |
| download | perlweeklychallenge-club-ccd5fa822acb6b1c0612341d9f2c7f306ad02a17.tar.gz perlweeklychallenge-club-ccd5fa822acb6b1c0612341d9f2c7f306ad02a17.tar.bz2 perlweeklychallenge-club-ccd5fa822acb6b1c0612341d9f2c7f306ad02a17.zip | |
Merge pull request #10126 from andemark/challenge-270
ch-1.raku
| -rw-r--r-- | challenge-270/mark-anderson/raku/ch-1.raku | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku index bc0a28297c..6503db87f3 100644 --- a/challenge-270/mark-anderson/raku/ch-1.raku +++ b/challenge-270/mark-anderson/raku/ch-1.raku @@ -15,9 +15,6 @@ is special-positions([ sub special-positions(@m) { - my @ones = (^@m X ^@m[0]).grep({ @m[.[0];.[1]] }); - - + @ones.grep({ all .[0] == one(@ones>>.[0]), - .[1] == one(@ones>>.[1]) - }) + @m .= grep(*.one); + + ([Z] @m).grep(*.one) } |