diff options
| -rw-r--r-- | challenge-105/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-105/mark-anderson/raku/ch-2.raku b/challenge-105/mark-anderson/raku/ch-2.raku index b6ee181534..90e3ea8df2 100644 --- a/challenge-105/mark-anderson/raku/ch-2.raku +++ b/challenge-105/mark-anderson/raku/ch-2.raku @@ -61,9 +61,11 @@ is name-game("Marsha"), chomp q:to/END/; sub name-game($X) { - my $Y = lc $X ~~ / :i <[aeiou]> \w+ $ /; + my $x = lc $X; - my $first = lc $X.substr: 0, 1; + my $Y = $x ~~ / <[aeiou]> \w+ $ /; + + my $first = $x.substr: 0, 1; .join: "\n" given |