diff options
| author | Polgár Márton <polgar@astron.hu> | 2022-05-03 09:58:52 +0200 |
|---|---|---|
| committer | Polgár Márton <polgar@astron.hu> | 2022-05-03 09:58:52 +0200 |
| commit | b63b58f5f19fb499ae3941ce25791913c5e67ee9 (patch) | |
| tree | 97ebfb8b4a3e8f63ba90b0b72e28c8966ea54040 | |
| parent | b13444bb5307ad7c7051ace6031dd063bac3cc32 (diff) | |
| download | perlweeklychallenge-club-b63b58f5f19fb499ae3941ce25791913c5e67ee9.tar.gz perlweeklychallenge-club-b63b58f5f19fb499ae3941ce25791913c5e67ee9.tar.bz2 perlweeklychallenge-club-b63b58f5f19fb499ae3941ce25791913c5e67ee9.zip | |
Weekly solutions (2colours)
| -rwxr-xr-x | challenge-163/2colours/raku/ch-1.raku | 4 | ||||
| -rwxr-xr-x | challenge-163/2colours/raku/ch-2.raku | 13 |
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 |