aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xchallenge-134/feng-chang/raku/ch-1.raku3
-rwxr-xr-xchallenge-134/feng-chang/raku/ch-2.raku18
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;
+ }
+}