From 1380439dbe2f374f3d7f3644570e80cf44eda5a9 Mon Sep 17 00:00:00 2001
From: 冯昶 <seaker@qq.com>
Date: Mon, 11 Oct 2021 18:23:06 +0800
Subject: challenge 134, raku solutions

---
 challenge-134/feng-chang/raku/ch-1.raku |  3 +++
 challenge-134/feng-chang/raku/ch-2.raku | 18 ++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100755 challenge-134/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-134/feng-chang/raku/ch-2.raku

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