diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-10-15 09:20:28 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-15 09:20:28 +0100 |
| commit | 7e9b2dbb5e5fbdfce954cddb9da3f9373bac0cd7 (patch) | |
| tree | b5c8aecfc5db30f06c927a01b80e88e1e7bd01bf | |
| parent | 711c8a87733d4422fc8fed8926699835105d2a52 (diff) | |
| parent | 17145bdbc4e20eab85c18b254c7d4900a2c36309 (diff) | |
| download | perlweeklychallenge-club-7e9b2dbb5e5fbdfce954cddb9da3f9373bac0cd7.tar.gz perlweeklychallenge-club-7e9b2dbb5e5fbdfce954cddb9da3f9373bac0cd7.tar.bz2 perlweeklychallenge-club-7e9b2dbb5e5fbdfce954cddb9da3f9373bac0cd7.zip | |
Merge pull request #12856 from andemark/challenge-343
ch-2.raku touch-up
| -rw-r--r-- | challenge-343/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-343/mark-anderson/raku/ch-2.raku b/challenge-343/mark-anderson/raku/ch-2.raku index 8ca58f3ec5..0c16657370 100644 --- a/challenge-343/mark-anderson/raku/ch-2.raku +++ b/challenge-343/mark-anderson/raku/ch-2.raku @@ -154,8 +154,8 @@ is champion-team([< 0 1 0 1 0 1 1 0 1 1 0 0 0 1 0 0 0 1 1 1 1 1 1 1 0 0 1 1 0 0 sub champion-team(@m) { - my %h = @m.map: { $++ => .grep(1, :k) } - %h .= classify: { .value.elems } - %h = %h.max.value; + my %h = .pairs given @m.map: { .grep(1, :k) } + %h = %h.classify: { .value.elems } + %h = %h.max.value; %h.keys>>.Int (-) %h.values.flat(:hammer) } |