From 2e39969fccaaa56e1435234574e3c26d648038a8 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 15 May 2023 11:31:08 +0000
Subject: Challenge 217 Solutions (Raku)

---
 challenge-217/mark-anderson/raku/ch-1.raku | 11 +++++++++++
 challenge-217/mark-anderson/raku/ch-2.raku | 15 +++++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 challenge-217/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-217/mark-anderson/raku/ch-2.raku

diff --git a/challenge-217/mark-anderson/raku/ch-1.raku b/challenge-217/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..bad514c662
--- /dev/null
+++ b/challenge-217/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is sorted-matrix([3, 1, 2], [5, 2, 4], [0, 1, 3]), 1;
+is sorted-matrix([2, 1], [4, 5]),                  4;
+is sorted-matrix([1, 0, 3], [0, 0, 0], [1, 2, 1]), 0;
+
+sub sorted-matrix(+$a)
+{
+    $a.comb(/\d+/).sort(+*)[2];
+}
diff --git a/challenge-217/mark-anderson/raku/ch-2.raku b/challenge-217/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..5201cea9e5
--- /dev/null
+++ b/challenge-217/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+use Test;
+
+# https://www.geeksforgeeks.org/given-an-array-of-numbers-arrange-the-numbers-to-form-the-biggest-number/
+
+is max-num(1, 23),          231;
+is max-num(10, 3, 2),       3210;
+is max-num(31, 2, 4, 10),   431210;
+is max-num(5, 11, 4, 1, 2), 542111;
+is max-num(1, 10),          110;
+
+sub max-num(+$a)
+{
+    $a.sort({ $^b ~ $^a cmp $^a ~ $^b }).join
+}
-- 
cgit