Merge pull request #4646 from andemark/branch-for-challenge-124

ch-2.raku

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-124/mark-anderson/raku/ch-2.raku b/challenge-124/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..4b75bab216
--- /dev/null
+++ b/challenge-124/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+
+say tug-of-war(10, 20 ... 100);
+say tug-of-war(10, -15, 20, 30, -25, 0, 5, 40, -5);
+
+sub tug-of-war(+$list)
+{
+    my %h = $list.combinations(+$list div 2).map(-> $a
+    {
+        my $b = ($list (-) $a).keys.List;
+        abs($b.sum - $a.sum) => ($a, $b);
+    });
+
+    %h.min.value;
+}