diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 10:41:39 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 10:41:39 -0600 |
| commit | c530303457ff88d2c5072831e824da4b5c9b03a2 (patch) | |
| tree | 2d968bae19721576c6d3541d89b99c884a9e8fff /challenge-105 | |
| parent | be536d31b547b2bc962de2dbae9636ae56a23f9e (diff) | |
| download | perlweeklychallenge-club-c530303457ff88d2c5072831e824da4b5c9b03a2.tar.gz perlweeklychallenge-club-c530303457ff88d2c5072831e824da4b5c9b03a2.tar.bz2 perlweeklychallenge-club-c530303457ff88d2c5072831e824da4b5c9b03a2.zip | |
initial
Diffstat (limited to 'challenge-105')
| -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 b126cbc384..982baa512a 100644 --- a/challenge-105/mark-anderson/raku/ch-2.raku +++ b/challenge-105/mark-anderson/raku/ch-2.raku @@ -65,7 +65,7 @@ sub name-game($X) my $first = lc $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, |