From 2088636a4f70511d77b97efdb1aafdb77b73ba50 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 5 Sep 2021 12:31:32 +0200
Subject: solution week 128-2

---
 challenge-128/wambash/raku/ch-2.raku | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 challenge-128/wambash/raku/ch-2.raku

diff --git a/challenge-128/wambash/raku/ch-2.raku b/challenge-128/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..32028bc0f8
--- /dev/null
+++ b/challenge-128/wambash/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+sub minimum-platforms (@arrivals, @deparatures) {
+    |(@arrivals X=> 1), |(@deparatures X=> -1)
+    andthen .sort
+    andthen .map: *.value
+    andthen [\+] $_
+    andthen .max
+}
+
+multi MAIN (Bool :test($)! ) {
+    use Test;
+    is minimum-platforms( <11:20 14:30>, <11:50 15:00> ), 1;
+    is minimum-platforms( <10:20 11:00 11:10 12:20 16:20 19:00>, <10:30 13:20 12:40 12:50 20:20 21:20> ), 3;
+    done-testing;
+}
-- 
cgit