Merge pull request #12218 from BarrOff/barroff-326

feat: add solution for challenge 325 from BarrOff

2 files changed, 49 insertions, 0 deletions

diff --git a/challenge-325/barroff/raku/ch-1.p6 b/challenge-325/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..52f7d5aefe
--- /dev/null
+++ b/challenge-325/barroff/raku/ch-1.p6
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub consecutive-one(@binary --> Int) {
+    return 0 unless 1 ∈ @binary;
+    max(map({ $_.chars }, @binary.join.split('0')));
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is consecutive-one([0, 1, 1, 0, 1, 1, 1]), 3,
+        'Works for ([0, 1, 1, 0, 1, 1, 1])';
+    is consecutive-one([0, 0, 0, 0]), 0,
+        'Works for ([0, 0, 0, 0])';
+    is consecutive-one([1, 0, 1, 0, 1, 1]), 2, 'Works for ([1, 0, 1, 0, 1, 1])';
+}
+
+#| Take user provided list like 1 1 0 0 1 1 1 0 1
+multi sub MAIN(*@binary) {
+    say consecutive-one(@binary);
+}
diff --git a/challenge-326/barroff/raku/ch-1.p6 b/challenge-326/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..781f05f607
--- /dev/null
+++ b/challenge-326/barroff/raku/ch-1.p6
@@ -0,0 +1,24 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub day-of-the-year(Str $date --> Int) {
+    my $end-date = Date.new($date);
+    my $start-date = Date.new($end-date.year, 1, 1);
+    $end-date - $start-date + 1;
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is day-of-the-year('2025-02-02'), 33, 'works for "2025-02-02"';
+    is day-of-the-year('2025-04-10'), 100, 'works for "2025-04-10"';
+    is day-of-the-year('2025-09-07'), 250, 'works for "2025-09-07"';
+}
+
+#| Take user provided string like 2025-02-02
+multi sub MAIN(Str $date) {
+    say day-of-the-year($date);
+}