Merge pull request #8387 from BarrOff/barroff-225

feat: add solutions for challenge 225 from BarrOff

2 files changed, 60 insertions, 0 deletions

diff --git a/challenge-225/barroff/perl/ch-1.pl b/challenge-225/barroff/perl/ch-1.pl
new file mode 100644
index 0000000000..c9051906ad
--- /dev/null
+++ b/challenge-225/barroff/perl/ch-1.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+
+use v5.36;
+use List::Util qw( max );
+
+sub max_words (@sentences) {
+    max( map( scalar( $_ = () = $_ =~ /\b(\s)\b/g ), @sentences ) ) + 1;
+}
+
+#| Run test cases
+sub MAIN() {
+    use Test2::V0 qw( is plan );
+    plan 2;
+
+    is max_words(
+        "Perl and Raku belong to the same family.",
+        "I love Perl.",
+        "The Perl and Raku Conference."
+      ),
+      8, 'works for first sentence list';
+    is max_words(
+        "The Weekly Challenge.",
+        "Python is the most popular guest language.",
+        "Team PWC has over 300 members."
+      ),
+      7, 'works for second sentence list';
+}
+
+MAIN();
diff --git a/challenge-225/barroff/raku/ch-1.raku b/challenge-225/barroff/raku/ch-1.raku
new file mode 100644
index 0000000000..7fa60f303c
--- /dev/null
+++ b/challenge-225/barroff/raku/ch-1.raku
@@ -0,0 +1,31 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub max-words(Str:D @words --> Int) {
+    # max(map({($_ ~~ m:g/<wb> ( \s ) <wb>/).elems}, @words)) + 1;
+    # max(map({($_ ~~ m:g/<|w> ( \s ) <|w>/).elems}, @words)) + 1;
+    max(map({($_ ~~ m:g/>> ( \s ) <</).elems}, @words)) + 1;
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 2;
+
+    is max-words(Array[Str:D].new(('Perl and Raku belong to the same family.',
+                'I love Perl.',
+                'The Perl and Raku Conference.'))),
+        8, 'works for first sentence list';
+    is max-words(Array[Str:D].new(('The Weekly Challenge.',
+                'Python is the most popular guest language.',
+                'Team PWC has over 300 members.'))),
+        7, 'works for second sentence list';
+}
+
+#| Take user provided list like Perl Rust Raku
+multi sub MAIN(*@words where @words.elems ≥ 1) {
+    my Str @str-words = @words;
+    say max-words(@str-words);
+}
+