diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-05-21 07:02:41 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-05-21 07:02:41 +0000 |
| commit | ce76e812bc5046e95203adcea1686182969be12d (patch) | |
| tree | 2a7e0c19d18943846d83b1181b04f1197dd176a2 | |
| parent | d48d906ff27a8595770c5f0e16238aa3c7d29228 (diff) | |
| download | perlweeklychallenge-club-ce76e812bc5046e95203adcea1686182969be12d.tar.gz perlweeklychallenge-club-ce76e812bc5046e95203adcea1686182969be12d.tar.bz2 perlweeklychallenge-club-ce76e812bc5046e95203adcea1686182969be12d.zip | |
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 213d8987f4..b39ed7df06 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(*.grep(1).one); + + ([Z] @m).grep(*.grep(1).one) } |