Merge pull request #6053 from 2colours/branch-for-challenge-163

Weekly solutions (2colours)

2 files changed, 17 insertions, 0 deletions

diff --git a/challenge-163/2colours/raku/ch-1.raku b/challenge-163/2colours/raku/ch-1.raku
new file mode 100755
index 0000000000..86cae3b6e4
--- /dev/null
+++ b/challenge-163/2colours/raku/ch-1.raku
@@ -0,0 +1,4 @@
+#!/usr/bin/env raku
+
+my @n = prompt('Input: @n = ') ~~ m:g/\d+/;
+say "Output: {@n.combinations(2).map({ [+&] $_ }).sum}"; 
\ No newline at end of file
diff --git a/challenge-163/2colours/raku/ch-2.raku b/challenge-163/2colours/raku/ch-2.raku
new file mode 100755
index 0000000000..751d81b4bd
--- /dev/null
+++ b/challenge-163/2colours/raku/ch-2.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+
+sub align-right($caption, $length) {
+  ' ' x ($length - $caption.chars) ~ $caption
+}
+
+my @n = prompt('Input: @n = ').comb(/\d+/)>>.Int;
+my @lines = @n, { [\+] .skip andthen .Array } ... * == 1;
+for @lines {
+  .unshift(|('' xx (@n - $_)))
+}
+my @col-length = [Zmax] @lines>>.chars;
+.say for @lines.map(*.List Z[&align-right] @col-length).map(*.join: ' ');
\ No newline at end of file