diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 13:37:35 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 13:37:35 -0600 |
| commit | 786bd6c0347ca8dc7a71ce631680d34579b0be0a (patch) | |
| tree | 84d3821970a00ed5c55b0d5e1aced3872b4c9ce7 | |
| parent | 33295708bfe893a264d28e92652356d021f455f5 (diff) | |
| download | perlweeklychallenge-club-786bd6c0347ca8dc7a71ce631680d34579b0be0a.tar.gz perlweeklychallenge-club-786bd6c0347ca8dc7a71ce631680d34579b0be0a.tar.bz2 perlweeklychallenge-club-786bd6c0347ca8dc7a71ce631680d34579b0be0a.zip | |
Challenge 105 Solutions (Raku)
| -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 |