diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-12-25 12:33:37 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-12-25 12:33:37 +0000 |
| commit | 18fe1cc9bbde79fa195f77c4806e1cb69a8d0501 (patch) | |
| tree | 227af4e62dc81b30bb3cbe9ceb038a53c7aee805 | |
| parent | 6fe6b26d3e03f849c61d1425968b68d2e0ab4d31 (diff) | |
| download | perlweeklychallenge-club-18fe1cc9bbde79fa195f77c4806e1cb69a8d0501.tar.gz perlweeklychallenge-club-18fe1cc9bbde79fa195f77c4806e1cb69a8d0501.tar.bz2 perlweeklychallenge-club-18fe1cc9bbde79fa195f77c4806e1cb69a8d0501.zip | |
Challenge 249 Solutions (Raku)
| -rw-r--r-- | challenge-249/mark-anderson/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-249/mark-anderson/raku/ch-1.raku b/challenge-249/mark-anderson/raku/ch-1.raku index 8b84602374..992e315b1d 100644 --- a/challenge-249/mark-anderson/raku/ch-1.raku +++ b/challenge-249/mark-anderson/raku/ch-1.raku @@ -8,5 +8,5 @@ sub equal-pairs(+@a where * %% 2) { my $b = @a.Bag; return () unless all($b.values) %% 2; - $b.kxxv.sort.rotor(2) + $b.kxxv.sort.batch(2) } |