Merge pull request #7017 from 2colours/branch-for-challenge-189

Current weeklies by 2colours

2 files changed, 38 insertions, 0 deletions

diff --git a/challenge-189/2colours/raku/ch-1.raku b/challenge-189/2colours/raku/ch-1.raku
new file mode 100755
index 0000000000..70dc386acd
--- /dev/null
+++ b/challenge-189/2colours/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+subset ArrayOfCharacters of Str where /^ 'qw/' (<[a..z]>) ** 0..* % \s+ '/' $/;
+subset Character of Str where /^ \' (<[a..z]>) \' $/;
+
+sub MAIN(
+  $array, #= qw// style @array as string
+  $in-target #= character enclosed in apostrophes
+) {
+  die 'Invalid @array argument.' unless $array ~~ ArrayOfCharacters;
+  my @array = ~<<$0;
+  die 'Invalid $target argument' unless $in-target ~~ Character;
+  my $target = ~$0;
+  @array
+    .grep: * after $target andthen
+    .so ?? .min !! $target andthen
+    .say; 
+}
\ No newline at end of file
diff --git a/challenge-189/2colours/raku/ch-2.raku b/challenge-189/2colours/raku/ch-2.raku
new file mode 100755
index 0000000000..4fec2896a3
--- /dev/null
+++ b/challenge-189/2colours/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+
+subset ArrayOfPosInt of Str where /^ '(' (<[1..9]><[0..9]>*) ** 0..* % [\s* ',' \s*] ')' $/;
+
+sub MAIN(
+  $array, #= (x, y, z) style positive integer @array as string 
+) {
+  die 'Invalid @array argument.' unless $array ~~ ArrayOfPosInt;
+  my @array = +<<$0;
+  my %positions = @array.antipairs.classify(*.key, as => *.value);
+  my $array-degree = %positions.map(*.value.elems).max; 
+  my @common-value-ranges <==
+    %positions
+    .grep: *.value == $array-degree andthen
+    .map: *.value.minmax;
+  my $slice-size = @common-value-ranges>>.elems.min;
+  my @solution-ranges = @common-value-ranges.grep(* == $slice-size);
+  @array[@solution-ranges>>.Slip].map(*.raku).join(' or ').say;
+}
\ No newline at end of file