diff options
| author | Mark Anderson <mark@andemark.io> | 2024-10-01 21:54:19 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2024-10-01 21:54:19 +0000 |
| commit | d080a526fd7aafc6793e8dc5bd25809b48a6aea7 (patch) | |
| tree | c887b8bbaa4c528e9cddcb3a46530ae241547956 | |
| parent | 71e73f8770244bb51b12c37cfb43aff1eca5e7e6 (diff) | |
| download | perlweeklychallenge-club-d080a526fd7aafc6793e8dc5bd25809b48a6aea7.tar.gz perlweeklychallenge-club-d080a526fd7aafc6793e8dc5bd25809b48a6aea7.tar.bz2 perlweeklychallenge-club-d080a526fd7aafc6793e8dc5bd25809b48a6aea7.zip | |
Challenge 289 Solutions (Raku)
| -rw-r--r-- | challenge-289/mark-anderson/raku/ch-2.raku | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/challenge-289/mark-anderson/raku/ch-2.raku b/challenge-289/mark-anderson/raku/ch-2.raku index 730816d540..a1ffc5c2d3 100644 --- a/challenge-289/mark-anderson/raku/ch-2.raku +++ b/challenge-289/mark-anderson/raku/ch-2.raku @@ -11,9 +11,11 @@ my $text = chomp q:to/END/; say jumbled-letters($text); +say jumbled-letters("They've shouldn't've, __LINE__ under_score y'all you're"); + sub jumbled-letters($text) { - my @split = $text.split(/ \s+ || \— || \- /, :v); + my @split = $text.split(/ <[\s — - ]> /, :v); for @split[0,2...*] { |