diff options
| -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) } |