TWC217

4 files changed, 50 insertions, 0 deletions

diff --git a/challenge-217/deadmarshal/perl/ch-1.pl b/challenge-217/deadmarshal/perl/ch-1.pl
new file mode 100644
index 0000000000..52cece3db5
--- /dev/null
+++ b/challenge-217/deadmarshal/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+sub sorted_matrix{
+  (sort {$a <=> $b} map{@$_} @{$_[0]})[2];
+}
+
+printf "%d\n", sorted_matrix([[3,1,2],[5,2,4],[0,1,3]]);
+printf "%d\n", sorted_matrix([[2,1],[4,5]]);
+printf "%d\n", sorted_matrix([[1,0,3],[0,0,0],[1,2,1]]);
+
diff --git a/challenge-217/deadmarshal/perl/ch-2.pl b/challenge-217/deadmarshal/perl/ch-2.pl
new file mode 100644
index 0000000000..2a7995bc15
--- /dev/null
+++ b/challenge-217/deadmarshal/perl/ch-2.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+sub max_number{
+  join '',sort {"$b$a" cmp "$a$b"} @{$_[0]};
+}
+
+printf "%s\n", max_number([1,23]);
+printf "%s\n", max_number([10,3,2]);
+printf "%s\n", max_number([31,2,4,10]);
+printf "%s\n", max_number([5,11,4,1,2]);
+printf "%s\n", max_number([1,10]);
+
diff --git a/challenge-217/deadmarshal/raku/ch-1.raku b/challenge-217/deadmarshal/raku/ch-1.raku
new file mode 100644
index 0000000000..446540e310
--- /dev/null
+++ b/challenge-217/deadmarshal/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+sub sorted-matrix(@arr)
+{
+  @arr.map({|$_}).sort({$^a <=> $^b})[2];
+}
+
+say sorted-matrix([[3,1,2],[5,2,4],[0,1,3]]);
+say sorted-matrix([[2,1],[4,5]]);
+say sorted-matrix([[1,0,3],[0,0,0],[1,2,1]]);
+
diff --git a/challenge-217/deadmarshal/raku/ch-2.raku b/challenge-217/deadmarshal/raku/ch-2.raku
new file mode 100644
index 0000000000..ad876651b4
--- /dev/null
+++ b/challenge-217/deadmarshal/raku/ch-2.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+
+sub max-number(@arr)
+{
+  @arr.sort({"$^b$^a" cmp "$^a$^b"}).join;
+}
+
+say max-number([1,23]);
+say max-number([10,3,2]);
+say max-number([31,2,4,10]);
+say max-number([5,11,4,1,2]);
+say max-number([1,10]);
+