From 104dd682d296f7ab6aedafd35a2d86f16a7a79b5 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 2 Aug 2021 03:16:14 -0600
Subject: ch-2.raku

---
 challenge-124/mark-anderson/raku/ch-2.raku | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 challenge-124/mark-anderson/raku/ch-2.raku

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..6762d2c45e
--- /dev/null
+++ b/challenge-124/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/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 $n = $list.elems div 2;
+
+    my %h = $list.combinations($n).map(-> @a
+    {
+        my @b = ($list (-) @a).keys;
+
+        abs(@b.sum - @a.sum) => @a ~ ' ' ~ @b;
+    });
+
+    .head($n), .tail(* - $n) with %h.min.value.split(/\s/).cache;
+}
-- 
cgit