Merge pull request #12808 from ash/ash-342

Task 2 of Week 342, Raku by @ash

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-342/ash/raku/ch-2.raku b/challenge-342/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..555ee7e822
--- /dev/null
+++ b/challenge-342/ash/raku/ch-2.raku
@@ -0,0 +1,23 @@
+# Task 2 of the Weekly Challenge 342
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-342/#TASK2
+
+say max-score('0011'); # 4
+say max-score('0000'); # 3
+say max-score('1111'); # 3
+say max-score('0101'); # 3
+say max-score('011101'); # 5
+
+sub max-score($s) {
+    my $score = 0;
+    for 1 .. $s.chars - 1 -> $i {
+        my $left = $s.substr(0, $i);
+        my $right = $s.substr($i, $s.chars);
+
+        my $score-left = $left.comb('0').elems;
+        my $score-right = $right.comb('1').elems;
+
+        $score = max($score, $score-left + $score-right);
+    }
+
+    return $score;
+}