4 files changed, 41 insertions, 0 deletions
diff --git a/challenge-277/feng-chang/raku/ch-1.raku b/challenge-277/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..34a5eb76ab
--- /dev/null
+++ b/challenge-277/feng-chang/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D \s1, Str:D \s2);
+
+put +[(&)] (s1, s2).map({ .words.Bag.grep(*.value==1)».key });
diff --git a/challenge-277/feng-chang/raku/ch-1a.raku b/challenge-277/feng-chang/raku/ch-1a.raku
new file mode 100755
index 0000000000..00694b6dee
--- /dev/null
+++ b/challenge-277/feng-chang/raku/ch-1a.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D \s1, Str:D \s2);
+
+put +[(&)] (s1, s2).map({ .cache.grep(.one) with .words });
diff --git a/challenge-277/feng-chang/raku/ch-2.raku b/challenge-277/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..120c8a36da
--- /dev/null
+++ b/challenge-277/feng-chang/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(*@ints);
+
+put +@ints.unique.combinations(2).grep(-> (\a,\b) { abs(a - b) < min(a, b) });
diff --git a/challenge-277/feng-chang/raku/test.raku b/challenge-277/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..bdf1bbbc1e
--- /dev/null
+++ b/challenge-277/feng-chang/raku/test.raku
@@ -0,0 +1,26 @@
+#!/bin/env raku
+
+# The Weekly Challenge 277
+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, Count Common
+pwc-test './ch-1.raku', 'Perl is my friend', 'Perl and Raku are friend', 2,
+    'Count Common: <Perl is my friend>, <Perl and Raku are friend>                        => 2';
+pwc-test './ch-1.raku', 'Perl and Python are very similar', 'Python is top in guest languages', 1,
+    'Count Common: <Perl and Python are very similar>, <Python is top in guest languages> => 1';
+pwc-test './ch-1.raku', 'Perl is imperative Lisp is functional', 'Crystal is similar to Ruby', 0,
+    'Count Common: <Perl is imperative Lisp is functional>, <Crystal is similar to Ruby>  => 0';
+
+# Task 2, Strong Pair
+pwc-test './ch-2.raku', <1 2 3 4 5>, 4, 'Strong Pair: 1, 2, 3, 4, 5 => 4';
+pwc-test './ch-2.raku', <5 7 1 7>,   1, 'Strong Pair: 5, 7, 1, 7    => 1';