diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-02-28 00:34:11 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-02-28 00:34:11 +0000 |
| commit | ae4d1ff408793ea702e876a4a854894b04d3e18c (patch) | |
| tree | 1c4b4354009e9271f91a017782ee4e40e7dac88c | |
| parent | fb41788f04ef4c0fcd837faf8e43e3bf7bcca26c (diff) | |
| download | perlweeklychallenge-club-ae4d1ff408793ea702e876a4a854894b04d3e18c.tar.gz perlweeklychallenge-club-ae4d1ff408793ea702e876a4a854894b04d3e18c.tar.bz2 perlweeklychallenge-club-ae4d1ff408793ea702e876a4a854894b04d3e18c.zip | |
ch-1.raku
| -rw-r--r-- | challenge-206/mark-anderson/raku/ch-2.raku | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/challenge-206/mark-anderson/raku/ch-2.raku b/challenge-206/mark-anderson/raku/ch-2.raku deleted file mode 100644 index 3358092efc..0000000000 --- a/challenge-206/mark-anderson/raku/ch-2.raku +++ /dev/null @@ -1,17 +0,0 @@ -#!/usr/bin/env raku -use Test; - -is array-pairings(< 1 2 3 4 >), 4; -is array-pairings(< 0 2 1 3 >), 2; -is array-pairings(< 1 2 3 4 5 6 >), 5; - -sub array-pairings(@a where * %% 2) -{ - my @c = @a.combinations(@a.elems div 2); - - max map - { - sum .map({ .min }) - }, - (.[^(.elems div 2)] Z .[.elems div 2 .. .end].reverse) given @c -} |
