challenge 282, raku solutions

4 files changed, 45 insertions, 0 deletions

diff --git a/challenge-282/feng-chang/raku/ch-1.raku b/challenge-282/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..b93cdd694a
--- /dev/null
+++ b/challenge-282/feng-chang/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/bin/env raku
+
+unit sub MAIN(UInt:D $int);
+
+my token Seq { (<[0..9]>) $0 $0+ }
+put $int.match(/<Seq>/, :g).grep(*.chars == 3).first // -1;
diff --git a/challenge-282/feng-chang/raku/ch-2.raku b/challenge-282/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..19bd7e4012
--- /dev/null
+++ b/challenge-282/feng-chang/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $str);
+
+put $str.lc.comb.squish.elems - 1;
diff --git a/challenge-282/feng-chang/raku/ch-2a.raku b/challenge-282/feng-chang/raku/ch-2a.raku
new file mode 100755
index 0000000000..f38b42d8d2
--- /dev/null
+++ b/challenge-282/feng-chang/raku/ch-2a.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $str is copy);
+
+$str .= lc;
+$str ~~ s:g/$<c>=(<[a..z]>) $<c>+/$<c>/;
+put $str.chars - 1;
diff --git a/challenge-282/feng-chang/raku/test.raku b/challenge-282/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..c03f25effd
--- /dev/null
+++ b/challenge-282/feng-chang/raku/test.raku
@@ -0,0 +1,27 @@
+#!/bin/env raku
+
+# The Weekly Challenge 282
+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, Good Integer
+pwc-test './ch-1.raku', 12344456, 444,   'Good Integer: 12344456 => 444';
+pwc-test './ch-1.raku', 1233334,  -1,    'Good Integer: 1233334  => -1';
+pwc-test './ch-1.raku', 10020003, '000', 'Good Integer: 10020003 => 000';
+
+# Task 2, Changing Keys
+pwc-test './ch-2.raku',  'pPeERrLl', 3, "Changing Keys: pPeERrLl => 3";
+pwc-test './ch-2.raku',  'rRr',      0, "Changing Keys: rRr      => 0";
+pwc-test './ch-2.raku',  'GoO',      1, "Changing Keys: GoO      => 1";
+pwc-test './ch-2a.raku', 'pPeERrLl', 3, "Changing Keys: pPeERrLl => 3";
+pwc-test './ch-2a.raku', 'rRr',      0, "Changing Keys: rRr      => 0";
+pwc-test './ch-2a.raku', 'GoO',      1, "Changing Keys: GoO      => 1";