aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark <53903062+andemark@users.noreply.github.com>2023-02-28 00:34:11 +0000
committerMark <53903062+andemark@users.noreply.github.com>2023-02-28 00:34:11 +0000
commitae4d1ff408793ea702e876a4a854894b04d3e18c (patch)
tree1c4b4354009e9271f91a017782ee4e40e7dac88c
parentfb41788f04ef4c0fcd837faf8e43e3bf7bcca26c (diff)
downloadperlweeklychallenge-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.raku17
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
-}