- Added Raku solution to the Vowel String task.

1 files changed, 36 insertions, 0 deletions

diff --git a/challenge-053/mohammad-anwar/raku/ch-2.p6 b/challenge-053/mohammad-anwar/raku/ch-2.p6
new file mode 100644
index 0000000000..2db2c332e8
--- /dev/null
+++ b/challenge-053/mohammad-anwar/raku/ch-2.p6
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl6
+
+use v6.c;
+
+sub MAIN(Int $count = 2) {
+    die "ERROR: Invalid count $count.\n"
+        unless $count ~~ any (1, 2, 3, 4, 5);
+
+    my @chars = <a e i o u>;
+
+    if $count == 1 {
+        say @chars.join("\n");
+        exit;
+    }
+
+    my @char-sets = @chars.combinations: $count;
+    my @comb-sets = @char-sets.map({ .join });
+
+    my @rules = (
+        rx/ a<[ie]>   /,
+        rx/ e<[i]>    /,
+        rx/ i<[aeou]> /,
+        rx/ o<[au]>   /,
+        rx/ u<[oe]>   /,
+    );
+
+    for @comb-sets -> $str {
+        my $pass = False;
+        for @rules -> $rule {
+            if $str ~~ /$rule/ {
+                $pass = True;
+            }
+        }
+        say $str if $pass;
+    }
+}