From ed4b8235e8e4aff32fd2dbc145a2d4f7b3c0f2fa Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 22 Mar 2021 10:12:16 -0600
Subject: initial

---
 challenge-105/mark-anderson/raku/ch-2.raku | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/challenge-105/mark-anderson/raku/ch-2.raku b/challenge-105/mark-anderson/raku/ch-2.raku
index 71c3e5b40f..82945f9497 100644
--- a/challenge-105/mark-anderson/raku/ch-2.raku
+++ b/challenge-105/mark-anderson/raku/ch-2.raku
@@ -64,13 +64,7 @@ is name-game("Marsha"),  chomp q:to/END/;
 
 sub name-game($X)
 {
-    my $vowels     = rx/ <[AEIOUaeiou]>+ /;
-
-    my $consonants = rx/ <[A..Za..z]-[AEIOUaeiou]>+ /;
-
-    my $start = $X ~~ / ^ [$vowels|$consonants] /;
-
-    my $Y = $start ~~ $consonants ?? $X.subst($start, "") !! lc $X;
+    my $Y = lc $X ~~ / :i <[aeiou]>+ \w+ $ /;
 
     my $first = lc $X.substr: 0, 1;
 
-- 
cgit