challenge 134, raku solutions

2 files changed, 21 insertions, 0 deletions

diff --git a/challenge-134/feng-chang/raku/ch-1.raku b/challenge-134/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..2808b4aa92
--- /dev/null
+++ b/challenge-134/feng-chang/raku/ch-1.raku
@@ -0,0 +1,3 @@
+#!/bin/env raku
+
+put (1_023_000_000 .. ∞).grep(*.comb.sort.unique.elems == 10)[^10];
diff --git a/challenge-134/feng-chang/raku/ch-2.raku b/challenge-134/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..052753ad39
--- /dev/null
+++ b/challenge-134/feng-chang/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/bin/env raku
+
+sub MAIN(UInt:D \m, UInt:D \n) {
+    my @widths = (1..n)».&{ $_*m }».chars;
+
+    put 'x'.fmt("%{ m.chars }s"),
+        ' |',
+        (1..n)».&{ $_.fmt(" %{ @widths[$_-1] }d") }.join;
+    put '-' x m.chars,
+        '-+', 
+        (1..n)».&{ '-' x (@widths[$_-1] + 1) }.join;
+
+    for 1..m -> $row {
+        put $row.fmt("%{ m.chars }d"),
+            ' |',
+            (1..n)».&{ ($_*$row).fmt(" %{ @widths[$_-1] }d") }.join;
+    }
+}