diff options
| -rwxr-xr-x | challenge-263/feng-chang/raku/ch-2a.raku | 7 | ||||
| -rwxr-xr-x | challenge-263/feng-chang/raku/test.raku | 7 |
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]]'; |