diff options
| author | Mark Anderson <mark@andemark.io> | 2025-10-14 02:34:06 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2025-10-14 02:34:06 +0000 |
| commit | 5cb2a9585db9de0b30980ce91a3b174cd118dfa2 (patch) | |
| tree | ce1cd9c41aff79ae70ecc2d86bc2888ee0c81797 | |
| parent | a280017cfcbdc1e25e0925dc320cca82c2c5d3f4 (diff) | |
| download | perlweeklychallenge-club-5cb2a9585db9de0b30980ce91a3b174cd118dfa2.tar.gz perlweeklychallenge-club-5cb2a9585db9de0b30980ce91a3b174cd118dfa2.tar.bz2 perlweeklychallenge-club-5cb2a9585db9de0b30980ce91a3b174cd118dfa2.zip | |
Challenge 343 Solutions (Raku)
| -rw-r--r-- | challenge-343/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-343/mark-anderson/raku/ch-2.raku b/challenge-343/mark-anderson/raku/ch-2.raku index abcd68af79..8ca58f3ec5 100644 --- a/challenge-343/mark-anderson/raku/ch-2.raku +++ b/challenge-343/mark-anderson/raku/ch-2.raku @@ -152,7 +152,7 @@ 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 < 0 1 0 0 1 0 0 0 1 0 1 1 0 0 1 0 0 0 1 0 1 1 1 0 0 1 0 0 1 1 1 1 1 0 0 1 1 1 1 0 0 1 0 1 0 0 0 0 1 1 0 0 1 0 0 0 0 1 0 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 1 >, < 0 0 0 0 1 0 1 1 0 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 1 0 1 0 0 0 0 0 0 1 1 0 0 0 1 0 0 1 0 0 1 0 0 0 0 1 1 0 1 1 0 0 1 0 1 0 0 0 0 0 0 1 1 1 1 1 0 0 1 0 0 >]), 36; -sub champion-team(+@m) +sub champion-team(@m) { my %h = @m.map: { $++ => .grep(1, :k) } %h .= classify: { .value.elems } |