diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-05-20 18:05:34 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-05-20 18:05:34 +0000 |
| commit | 47fa5ee81005f6ef22d1e70ec7084c742006503a (patch) | |
| tree | 9ca9652c9a2922781f63136fff697bece91b4a44 | |
| parent | dec0fca890bae3f8018270663da582d87037a141 (diff) | |
| download | perlweeklychallenge-club-47fa5ee81005f6ef22d1e70ec7084c742006503a.tar.gz perlweeklychallenge-club-47fa5ee81005f6ef22d1e70ec7084c742006503a.tar.bz2 perlweeklychallenge-club-47fa5ee81005f6ef22d1e70ec7084c742006503a.zip | |
ch-1.raku
| -rw-r--r-- | challenge-270/mark-anderson/raku/ch-1.raku | 16 |
1 files changed, 11 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..a7b7e32471 100644 --- a/challenge-270/mark-anderson/raku/ch-1.raku +++ b/challenge-270/mark-anderson/raku/ch-1.raku @@ -15,9 +15,15 @@ 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]) - }) + my $b = bag @m>>.grep(* == 1, :k); + + $b.values.grep(* == 1) } + +# 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]) +# }) +# } |