Merge pull request #8097 from seaker/master

#217 raku solutions with blog.

6 files changed, 42 insertions, 3 deletions

diff --git a/challenge-215/feng-chang/README.md b/challenge-215/feng-chang/README.md
index 2ce326a102..26526f5e69 100644
--- a/challenge-215/feng-chang/README.md
+++ b/challenge-215/feng-chang/README.md
@@ -1,2 +1,2 @@
 # blog
-* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-125.html)
+* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-215.html)
diff --git a/challenge-216/feng-chang/README.md b/challenge-216/feng-chang/README.md
index 2ce326a102..b7d80de577 100644
--- a/challenge-216/feng-chang/README.md
+++ b/challenge-216/feng-chang/README.md
@@ -1,2 +1,2 @@
 # blog
-* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-125.html)
+* [PWC #216](https://seaker.github.io/jekyll/update/2023/05/08/PWC-216.html)
diff --git a/challenge-217/feng-chang/README.md b/challenge-217/feng-chang/README.md
index 2ce326a102..6d43a92a22 100644
--- a/challenge-217/feng-chang/README.md
+++ b/challenge-217/feng-chang/README.md
@@ -1,2 +1,2 @@
 # blog
-* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-125.html)
+* [PWC #217](https://seaker.github.io/jekyll/update/2023/05/16/PWC-217.html)
diff --git a/challenge-217/feng-chang/raku/ch-1.raku b/challenge-217/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..f6251cfa0c
--- /dev/null
+++ b/challenge-217/feng-chang/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s);
+
+use MONKEY-SEE-NO-EVAL;
+
+put (EVAL $s)[*;*].sort[2];
diff --git a/challenge-217/feng-chang/raku/ch-2.raku b/challenge-217/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..dbc1e0ffdc
--- /dev/null
+++ b/challenge-217/feng-chang/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+put @N.permutations».join.max;
diff --git a/challenge-217/feng-chang/raku/test.raku b/challenge-217/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..cc8e2a355d
--- /dev/null
+++ b/challenge-217/feng-chang/raku/test.raku
@@ -0,0 +1,27 @@
+#!/bin/env raku
+
+# The Weekly Challenge 217
+use Test;
+
+sub pwc-test(Str:D $script, *@input) {
+    my ($expect, $assertion) = @input.splice(*-2, 2);
+    my $p = run $script, |@input, :out;
+    is $p.out.slurp(:close).chomp, $expect, $assertion;
+}
+
+# Task 1, Sorted Matrix
+pwc-test './ch-1.raku', '[3, 1, 2], [5, 2, 4], [0, 1, 3]', 1,
+    "Sorted Matrix: @matrix = ([3, 1, 2], [5, 2, 4], [0, 1, 3]) => 1";
+pwc-test './ch-1.raku', '[2, 1], [4, 5]', 4,
+    "Sorted Matrix: @matrix = ([2, 1], [4, 5]) => 4";
+pwc-test './ch-1.raku', '[1, 0, 3], [0, 0, 0], [1, 2, 1]', 0,
+    "Sorted Matrix: @matrix = ([1, 0, 3], [0, 0, 0], [1, 2, 1]) => 0";
+
+# Task 2, Max Number
+pwc-test './ch-2.raku', |<1 23>,       231,    'Max Number: (1, 23)          =>    231';
+pwc-test './ch-2.raku', |<10 3 2>,     3210,   'Max Number: (10, 3, 2)       =>   3210';
+pwc-test './ch-2.raku', |<31 2 4 10>,  431210, 'Max Number: (31, 2, 4, 10)   => 431210';
+pwc-test './ch-2.raku', |<5 11 4 1 2>, 542111, 'Max Number: (5, 11, 4, 1, 2) => 542111';
+pwc-test './ch-2.raku', |<1 10>,       110,    'Max Number: (1, 10)          =>    110';
+
+done-testing;