diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-12-13 08:18:17 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-12-13 08:18:17 +0000 |
| commit | fba6638efddc189b3b39d3ca4cb9f9311c330cb2 (patch) | |
| tree | 32dc1b0b346faf69e74ea89ee7aec1dfa1d01be0 | |
| parent | 59dd650cd48939cc8a4b21d948c4dc26c0a166fa (diff) | |
| parent | de210de22a3ee02de8cde8e7846b381e2cc1a118 (diff) | |
| download | perlweeklychallenge-club-fba6638efddc189b3b39d3ca4cb9f9311c330cb2.tar.gz perlweeklychallenge-club-fba6638efddc189b3b39d3ca4cb9f9311c330cb2.tar.bz2 perlweeklychallenge-club-fba6638efddc189b3b39d3ca4cb9f9311c330cb2.zip | |
Merge pull request #9237 from andemark/challenge-247
ch-1.raku touch-up
| -rw-r--r-- | challenge-247/mark-anderson/raku/ch-1.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-247/mark-anderson/raku/ch-1.raku b/challenge-247/mark-anderson/raku/ch-1.raku index 3e3e059503..a2a51e5683 100644 --- a/challenge-247/mark-anderson/raku/ch-1.raku +++ b/challenge-247/mark-anderson/raku/ch-1.raku @@ -43,7 +43,7 @@ is-deeply secret-santa(["Rudolph Reindeer", "Dasher Reindeer", sub secret-santa(@names) { - my %surname = @names.classify({ .words[1] }); + my %surname = @names.classify({ .words[1..*].join(" ") }); my @r = gather given %surname.values.sort.Array { @@ -54,5 +54,5 @@ sub secret-santa(@names) } } - @r.push(@r.head).rotor(2 => -1).map({ .pairup.head }).Hash + @r.push(@r.head).rotor(2 => -1).flat.pairup.Hash } |