diff options
| -rw-r--r-- | challenge-105/mark-anderson/raku/ch-2.raku | 8 |
1 files changed, 1 insertions, 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; |