ch-2a.raku: task 2 1-liner

2 files changed, 14 insertions, 0 deletions

diff --git a/challenge-263/feng-chang/raku/ch-2a.raku b/challenge-263/feng-chang/raku/ch-2a.raku
new file mode 100755
index 0000000000..1b8f481323
--- /dev/null
+++ b/challenge-263/feng-chang/raku/ch-2a.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s1, Str:D $s2);
+
+use MONKEY-SEE-NO-EVAL;
+
+put (EVAL "$s1, $s2").map({ $_[0] xx $_[1] }).Bag.sort(+*.key).map({ [+.key, .value] }).Array.raku;
diff --git a/challenge-263/feng-chang/raku/test.raku b/challenge-263/feng-chang/raku/test.raku
index 8a2cd6dc4c..c35a6af606 100755
--- a/challenge-263/feng-chang/raku/test.raku
+++ b/challenge-263/feng-chang/raku/test.raku
@@ -25,3 +25,10 @@ pwc-test './ch-2.raku', '[1,2],[2,3],[1,3],[3,2]', '[3,1],[1,3]', '[[1, 8], [2,
     'Merge Items: $items1 = [[1,2],[2,3],[1,3],[3,2]], $items2 = [[3,1],[1,3]] => [[1,8],[2,3],[3,3]]';
 pwc-test './ch-2.raku', '[1,1],[2,2],[3,3]', '[2,3],[2,4]', '[[1, 1], [2, 9], [3, 3]]',
     'Merge Items: $items1 = [[1,1],[2,2],[3,3]],       $items2 = [[2,3],[2,4]] => [[1, 1], [2, 9], [3, 3]]';
+
+pwc-test './ch-2a.raku', '[1,1],[2,1],[3,2]', '[2,2],[1,3]', '[[1, 4], [2, 3], [3, 2]]',
+    'Merge Items: $items1 = [[1,1],[2,1],[3,2]],       $items2 = [[2,2],[1,3]] => [[1,4],[2,3],[3,2]]';
+pwc-test './ch-2a.raku', '[1,2],[2,3],[1,3],[3,2]', '[3,1],[1,3]', '[[1, 8], [2, 3], [3, 3]]',
+    'Merge Items: $items1 = [[1,2],[2,3],[1,3],[3,2]], $items2 = [[3,1],[1,3]] => [[1,8],[2,3],[3,3]]';
+pwc-test './ch-2a.raku', '[1,1],[2,2],[3,3]', '[2,3],[2,4]', '[[1, 1], [2, 9], [3, 3]]',
+    'Merge Items: $items1 = [[1,1],[2,2],[3,3]],       $items2 = [[2,3],[2,4]] => [[1, 1], [2, 9], [3, 3]]';