Merge pull request #7641 from andemark/branch-for-challenge-206

Initial 206 (Raku)

1 files changed, 18 insertions, 0 deletions

diff --git a/challenge-206/mark-anderson/raku/ch-1.raku b/challenge-206/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..48746c0830
--- /dev/null
+++ b/challenge-206/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+use Test;
+
+is shortest-time(< 00:00 23:55 20:00 >),        5;
+is shortest-time(< 01:01 00:50 00:57 >),        4;
+is shortest-time(< 10:10 09:30 09:00 09:55 >), 15;
+
+sub shortest-time(@a)
+{
+    min map 
+    {
+        my @t = .map({ .split(':').List })
+                .map({ .[0] * 60 + .[1] });
+
+        ((.min, .min + 1440) >>->> .max)>>.abs.min given @t
+    }, 
+    @a.combinations(2)
+}