diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2024-02-18 15:47:09 +0100 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2024-02-18 15:47:09 +0100 |
| commit | 1f3917e82cc19e0bc78670402990d5e35f9b7f03 (patch) | |
| tree | 524deaca9fe88fa9cf95b1c56eb820a58fa4808f | |
| parent | caebc678b4842773e3517fdfa506badb4335bf94 (diff) | |
| download | perlweeklychallenge-club-1f3917e82cc19e0bc78670402990d5e35f9b7f03.tar.gz perlweeklychallenge-club-1f3917e82cc19e0bc78670402990d5e35f9b7f03.tar.bz2 perlweeklychallenge-club-1f3917e82cc19e0bc78670402990d5e35f9b7f03.zip | |
combination instead .skip hyper
| -rw-r--r-- | challenge-256/wambash/raku/ch-1.raku | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-256/wambash/raku/ch-1.raku b/challenge-256/wambash/raku/ch-1.raku index f39495c7eb..a33a1b37f2 100644 --- a/challenge-256/wambash/raku/ch-1.raku +++ b/challenge-256/wambash/raku/ch-1.raku @@ -1,8 +1,9 @@ #!/usr/bin/env raku sub maximum-pairs (+words) { - words.kv - andthen .map: -> $i, $w { [+] $w.flip «eq« words.skip: $i + 1 }\ + words + andthen .combinations: 2 + andthen .map: -> ( $fw, $sw ) { $fw eq $sw.flip }\ andthen .sum } |