Merge pull request #12311 from seaker/master

challenge 329, raku solutions

3 files changed, 39 insertions, 0 deletions

diff --git a/challenge-329/feng-chang/raku/ch-1.raku b/challenge-329/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..bc48f51a93
--- /dev/null
+++ b/challenge-329/feng-chang/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s);
+
+put $s.comb(/\d+/).unique;
diff --git a/challenge-329/feng-chang/raku/ch-2.raku b/challenge-329/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..c7603fe30b
--- /dev/null
+++ b/challenge-329/feng-chang/raku/ch-2.raku
@@ -0,0 +1,9 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s);
+
+put (^$s.chars).combinations(2).map({ with $s.substr(.[0], .[1]-.[0]+1) { $_ if is-nice($_) } }).sort(*.chars).tail || '';
+
+sub is-nice(Str:D $s --> Bool:D) {
+    so $s.comb.map({ $s.contains(chr(.lc.ord + .uc.ord - .ord)) }).all
+}
diff --git a/challenge-329/feng-chang/raku/test.raku b/challenge-329/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..12422177f2
--- /dev/null
+++ b/challenge-329/feng-chang/raku/test.raku
@@ -0,0 +1,25 @@
+#!/bin/env raku
+
+# The Weekly Challenge 329
+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 Integers
+pwc-test './ch-1.raku', 'the1weekly2challenge2', '1 2',      'Count Integers: the1weekly2challenge2 => 1,2';
+pwc-test './ch-1.raku', 'go21od1lu5c7k',         '21 1 5 7', 'Count Integers: go21od1lu5c7k         => 21,1,5,7';
+pwc-test './ch-1.raku', '4p3e2r1l',              '4 3 2 1',  'Count Integers: 4p3e2r1l              => 4,3,2,1';
+
+# Task 2, Nice String
+pwc-test './ch-2.raku', 'YaaAho',     'aaA',  'Nice String: YaaAho     => aaA';
+pwc-test './ch-2.raku', 'cC',         'cC',   'Nice String: cC         => cC';
+pwc-test './ch-2.raku', 'A',          '',     'Nice String: A          => ""';
+pwc-test './ch-2.raku', 'YaaAhCccCo', 'CccC', 'Nice String: YaaAhCccCo => CccC';