diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 10:12:16 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 10:12:16 -0600 |
| commit | ed4b8235e8e4aff32fd2dbc145a2d4f7b3c0f2fa (patch) | |
| tree | 0c46a507924509ae355f6e79b74eda526fbddcf1 /challenge-105 | |
| parent | e13337cc6cd2f24cffbd8d3c26d4220496586894 (diff) | |
| download | perlweeklychallenge-club-ed4b8235e8e4aff32fd2dbc145a2d4f7b3c0f2fa.tar.gz perlweeklychallenge-club-ed4b8235e8e4aff32fd2dbc145a2d4f7b3c0f2fa.tar.bz2 perlweeklychallenge-club-ed4b8235e8e4aff32fd2dbc145a2d4f7b3c0f2fa.zip | |
initial
Diffstat (limited to 'challenge-105')
| -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; |