diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 11:04:26 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 11:04:26 -0600 |
| commit | 2210dbc39a11661fcc070f52361fa17a6ec9237e (patch) | |
| tree | 1ae96b2d48699bcb825d8048a6e27cf729931e55 | |
| parent | c530303457ff88d2c5072831e824da4b5c9b03a2 (diff) | |
| download | perlweeklychallenge-club-2210dbc39a11661fcc070f52361fa17a6ec9237e.tar.gz perlweeklychallenge-club-2210dbc39a11661fcc070f52361fa17a6ec9237e.tar.bz2 perlweeklychallenge-club-2210dbc39a11661fcc070f52361fa17a6ec9237e.zip | |
initial
| -rw-r--r-- | challenge-105/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-105/mark-anderson/raku/ch-2.raku b/challenge-105/mark-anderson/raku/ch-2.raku index 982baa512a..b6ee181534 100644 --- a/challenge-105/mark-anderson/raku/ch-2.raku +++ b/challenge-105/mark-anderson/raku/ch-2.raku @@ -61,7 +61,7 @@ is name-game("Marsha"), chomp q:to/END/; sub name-game($X) { - my $Y = lc $X ~~ / :i <[aeiou]>+ \w+ $ /; + my $Y = lc $X ~~ / :i <[aeiou]> \w+ $ /; my $first = lc $X.substr: 0, 1; |