diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-28 13:50:09 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-28 13:50:09 -0600 |
| commit | 90da43fa83ec09089fc4bec9c9236ad1406a44e0 (patch) | |
| tree | c2a48dda77f5a2ff8ab12d9264dd5a4b3cf1c22d /challenge-105 | |
| parent | 786bd6c0347ca8dc7a71ce631680d34579b0be0a (diff) | |
| download | perlweeklychallenge-club-90da43fa83ec09089fc4bec9c9236ad1406a44e0.tar.gz perlweeklychallenge-club-90da43fa83ec09089fc4bec9c9236ad1406a44e0.tar.bz2 perlweeklychallenge-club-90da43fa83ec09089fc4bec9c9236ad1406a44e0.zip | |
ch-2.raku again...
Diffstat (limited to 'challenge-105')
| -rw-r--r-- | challenge-105/mark-anderson/raku/ch-2.raku | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/challenge-105/mark-anderson/raku/ch-2.raku b/challenge-105/mark-anderson/raku/ch-2.raku index 90e3ea8df2..148bb473ee 100644 --- a/challenge-105/mark-anderson/raku/ch-2.raku +++ b/challenge-105/mark-anderson/raku/ch-2.raku @@ -65,12 +65,10 @@ sub name-game($X) my $Y = $x ~~ / <[aeiou]> \w+ $ /; - my $first = $x.substr: 0, 1; + .join("\n") given - .join: "\n" given - - "$X, $X, bo-" ~ ($first eq "b" ?? "" !! "b") ~ $Y ~ ",", - "Bonana-fanna fo-" ~ ($first eq "f" ?? "" !! "f") ~ $Y, - "Fee fi mo-" ~ ($first eq "m" ?? "" !! "m") ~ $Y, + "$X, $X, bo-" ~ ($x.starts-with("b") ?? "" !! "b") ~ $Y ~ ",", + "Bonana-fanna fo-" ~ ($x.starts-with("f") ?? "" !! "f") ~ $Y, + "Fee fi mo-" ~ ($x.starts-with("m") ?? "" !! "m") ~ $Y, "$X!"; } |