Challenge 217 Solutions (Raku)

2 files changed, 26 insertions, 0 deletions

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
+}