Merge pull request #13075 from BarrOff/barroff-348

feat: add solution for challenge 348 from BarrOff

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-348/barroff/raku/ch-1.p6 b/challenge-348/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..e1b1253705
--- /dev/null
+++ b/challenge-348/barroff/raku/ch-1.p6
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub string-alike(Str $str --> Bool) {
+    my @str-split = $str.lc.comb;
+    my @p1 = grep({ @str-split[$_] ~~ /<[aeiou]>/ }, 0..^@str-split.elems div 2);
+    my @p2 = grep({ @str-split[$_] ~~ /<[aeiou]>/ }, @str-split.elems div 2 ..^ @str-split.elems);
+    return @p1.elems ≠ 0 && @p1.elems == @p2.elems;
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 5;
+
+    is string-alike("textbook"), False, 'works for "textbook"';
+    is string-alike("book"), True, 'works for "book"';
+    is string-alike("AbCdEfGh"), True, 'works for "AbCdEfGh"';
+    is string-alike("rhythmmyth"), False, 'works for "rhythmmyth"';
+    is string-alike("UmpireeAudio"), False, 'works for "UmpireeAudio"';
+}
+
+#| Take user provided string like "PerlWeeklyChallenge"
+multi sub MAIN(Str $str) {
+    say string-alike($str);
+}