From 03d34bb7eee80f0a306e7e059ea8b34867fdc2f8 Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Tue, 8 Nov 2022 18:16:14 +0800
Subject: challenge #190, raku solutions

---
 challenge-190/feng-chang/raku/ch-1.raku  |  4 ++++
 challenge-190/feng-chang/raku/ch-2.raku  |  9 +++++++++
 challenge-190/feng-chang/raku/ch-2a.raku | 15 +++++++++++++++
 3 files changed, 28 insertions(+)
 create mode 100755 challenge-190/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-190/feng-chang/raku/ch-2.raku
 create mode 100755 challenge-190/feng-chang/raku/ch-2a.raku

(limited to 'challenge-190')

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
+    });
-- 
cgit