Challenge 208, Raku solutions

2 files changed, 30 insertions, 0 deletions

diff --git a/challenge-208/feng-chang/raku/ch-1.raku b/challenge-208/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..5d36026336
--- /dev/null
+++ b/challenge-208/feng-chang/raku/ch-1.raku
@@ -0,0 +1,24 @@
+#!/bin/env raku
+
+sub min-index-sum(@list1, @list2) {
+    my %hash1 = @list1 Z=> ^+@list1;
+    my %hash2 = @list2 Z=> ^+@list2;
+    my @common = (%hash1.keys (&) %hash2.keys).keys;
+    my $min-index = @common.map({ %hash1{$_} + %hash2{$_} }).min;
+
+    @common.grep({ %hash1{$_} + %hash2{$_} == $min-index }).sort
+}
+
+multi MAIN('test') {
+    use Test;
+
+    is-deeply min-index-sum(<Perl Raku Love>, <Raku Perl Hate>), <Perl Raku>, 'example 1 matches';
+    is-deeply min-index-sum(<A B C>, <D E F>), < >, 'example 2 matches';
+    is-deeply min-index-sum(<A B C>, <C A B>), ('A',), 'example 3 matches';
+
+    done-testing;
+}
+
+multi MAIN() {
+    put min-index-sum(|$*IN.lines[0, 1].map({ .words.Array }));
+}
diff --git a/challenge-208/feng-chang/raku/ch-2.raku b/challenge-208/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..5d85033739
--- /dev/null
+++ b/challenge-208/feng-chang/raku/ch-2.raku
@@ -0,0 +1,6 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+put "Duplicate: { @N.Bag.grep({ .value > 1 }).Hash.keys || 'null' } and ",
+    "Missing: { ((@N[0] .. +@N) (-) @N».Int)            || 'null' }";