Merge pull request #7056 from seaker/master

challenge #190, Feng Chang's raku solutions

3 files changed, 28 insertions, 0 deletions

diff --git a/challenge-190/feng-chang/raku/ch-1.raku b/challenge-190/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..820deb0b18
--- /dev/null
+++ b/challenge-190/feng-chang/raku/ch-1.raku
@@ -0,0 +1,4 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D \s);
+put +so s eq s.lc.tc|s.lc|s.uc;
diff --git a/challenge-190/feng-chang/raku/ch-2.raku b/challenge-190/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..f8820083c5
--- /dev/null
+++ b/challenge-190/feng-chang/raku/ch-2.raku
@@ -0,0 +1,9 @@
+#!/bin/env raku
+
+unit sub MAIN(UInt:D \N);
+
+my $len = N.chars - 1;
+for ^2**$len -> \n {
+    my @A = (N.comb »Z~» n.fmt("\%0{$len}b").comb».trans(<0 1> => ('',' '))).join.comb(/\d+/);
+    put @A».&{ chr($_ - 1 + 'A'.ord) }.join if 1 ≤ @A.all ≤ 26;
+}
diff --git a/challenge-190/feng-chang/raku/ch-2a.raku b/challenge-190/feng-chang/raku/ch-2a.raku
new file mode 100755
index 0000000000..f8ea148f07
--- /dev/null
+++ b/challenge-190/feng-chang/raku/ch-2a.raku
@@ -0,0 +1,15 @@
+#!/bin/env raku
+
+unit sub MAIN(UInt:D \N);
+
+my $len = N.chars - 1;
+(^2**$len)
+    .map(-> \n {
+        (N.comb »Z~» n.fmt("\%0{$len}b").comb».trans(<0 1> => ('',' ')))
+        .join
+        .comb(/\d+/)
+    })
+    .grep({ 1 ≤ @$_.all ≤ 26 })
+    .map(-> $a {
+        @$a».&{ chr( $_ - 1 + 'A'.ord ) }.join.put
+    });