diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-10-23 17:35:11 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-10-23 17:35:11 +0100 |
| commit | c31ec51b4c4dd138af23bab6af3fca73a68fe97a (patch) | |
| tree | 0b71e078eff4498745a7c94e82ae3c769a7763aa | |
| parent | 6d45d24615398edf1969c70d3ebbfe11f09febe3 (diff) | |
| parent | 222e79a281beb1a26359891d8298cb5087a87cd3 (diff) | |
| download | perlweeklychallenge-club-c31ec51b4c4dd138af23bab6af3fca73a68fe97a.tar.gz perlweeklychallenge-club-c31ec51b4c4dd138af23bab6af3fca73a68fe97a.tar.bz2 perlweeklychallenge-club-c31ec51b4c4dd138af23bab6af3fca73a68fe97a.zip | |
Merge pull request #6942 from andemark/branch-for-challenge-187
ch-2.raku do-over
| -rw-r--r-- | challenge-187/mark-anderson/raku/ch-2.raku | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/challenge-187/mark-anderson/raku/ch-2.raku b/challenge-187/mark-anderson/raku/ch-2.raku index accc086c9e..421570bdde 100644 --- a/challenge-187/mark-anderson/raku/ch-2.raku +++ b/challenge-187/mark-anderson/raku/ch-2.raku @@ -8,12 +8,7 @@ is-deeply max-magical-triplet(2, 4, 3), (4, 3, 2); sub max-magical-triplet(+$list) { - $list.combinations(3) - .flat - .grep({ [and] $^a + $^b > $^c, - $^b + $^c > $^a, - $^a + $^c > $^b }) - .map({ .sort(-*) }) - andthen - .elems ?? .max !! Empty.List + $list.sort(-*) + .rotor(3 => -2) + .first({ .[0] < .[1] + .[2] }) // Empty.List } |