From d080a526fd7aafc6793e8dc5bd25809b48a6aea7 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Tue, 1 Oct 2024 21:54:19 +0000 Subject: Challenge 289 Solutions (Raku) --- challenge-289/mark-anderson/raku/ch-2.raku | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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...*] { -- cgit