Merge pull request #9847 from seaker/master

Feng Chang, challenge #263

4 files changed, 57 insertions, 0 deletions

diff --git a/challenge-263/feng-chang/raku/ch-1.raku b/challenge-263/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..7f02543374
--- /dev/null
+++ b/challenge-263/feng-chang/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/bin/env raku
+
+unit sub MAIN(*@ints);
+
+my \k = @ints.pop;
+put @ints.sort.grep(k, :k).gist;
diff --git a/challenge-263/feng-chang/raku/ch-2.raku b/challenge-263/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..aa93ae7c2a
--- /dev/null
+++ b/challenge-263/feng-chang/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s1, Str:D $s2);
+
+use MONKEY-SEE-NO-EVAL;
+
+my @items = EVAL "$s1, $s2";
+my %merged;
+%merged{$_[0]} += $_[1] for @items;
+put %merged.keys.sort.map({ [ +$_, %merged{$_} ] }).Array.raku;
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
new file mode 100755
index 0000000000..c35a6af606
--- /dev/null
+++ b/challenge-263/feng-chang/raku/test.raku
@@ -0,0 +1,34 @@
+#!/bin/env raku
+
+# The Weekly Challenge 263
+use Test;
+
+sub pwc-test(Str:D $script, Bool :$deeply? = False, *@input) {
+    my ($expect, $assertion) = @input.splice(*-2, 2);
+    my $p = run $script, |@input, :out;
+    if $deeply {
+        is-deeply $p.out.slurp(:close).chomp.words.Bag, $expect, $assertion;
+    } else {
+        is $p.out.slurp(:close).chomp, $expect, $assertion;
+    }
+}
+
+# Task 1, Target Index
+pwc-test './ch-1.raku', <1 5 3 2 4 2>, 2, '(1 2)', 'Target Index: @ints = (1,5,3,2,4,2), $k=2 => (1, 2)';
+pwc-test './ch-1.raku', <1 2 4 3 5>,   6, '()',    'Target Index: @ints = (1,2,4,3,5),   $k=6 => ()';
+pwc-test './ch-1.raku', <5 3 2 4 2 1>, 4, '(4)',   'Target Index: @ints = (5,3,2,4,2,1), $k=4 => (4)';
+
+# Task 2, Merge Items
+pwc-test './ch-2.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-2.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-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]]';