challenge 207, raku solutions

2 files changed, 12 insertions, 0 deletions

diff --git a/challenge-207/feng-chang/raku/ch-1.raku b/challenge-207/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..cd6e9ecc55
--- /dev/null
+++ b/challenge-207/feng-chang/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(*@words);
+
+my %AtRow = <qwertyuiop asdfghjkl zxcvbnm>.map({ .comb.all => $++ });
+
+put @words.grep({ [==] %AtRow{ .lc.comb } });
diff --git a/challenge-207/feng-chang/raku/ch-2.raku b/challenge-207/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..47315c561d
--- /dev/null
+++ b/challenge-207/feng-chang/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+put (+@N...1).first(-> \m { @N.grep(* ≥ m) ≥ m });