From 38b8cc06182321a196a4455cefde03bd0c2df53e Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 10 Nov 2025 09:13:23 +0000 Subject: Challenge 347 Solutions (Raku) --- challenge-347/mark-anderson/raku/ch-2.raku | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/challenge-347/mark-anderson/raku/ch-2.raku b/challenge-347/mark-anderson/raku/ch-2.raku index 6bb570ba93..f5682c59e3 100644 --- a/challenge-347/mark-anderson/raku/ch-2.raku +++ b/challenge-347/mark-anderson/raku/ch-2.raku @@ -11,22 +11,20 @@ sub format-phone-number($str is copy) { $str .= subst(/ | '-'/, :g); - do given $str.chars % 3 + .join('-') given do given $str.chars % 3 { when 0 { - .join('-') given $str ~~ m:g/.../ + m:g/.../ given $str } when 1 { - .join('-') given flat - $str.substr(0, *-4) ~~ m:g/.../, - $str.substr( *-4) ~~ m:g/../ + flat .substr(0, *-4) ~~ m:g/.../, + .substr( *-4) ~~ m:g/../ given $str } when 2 { - .join('-') given flat - $str.substr(0, *-2) ~~ m:g/.../, - $str.substr( *-2) + flat .substr(0, *-2) ~~ m:g/.../, + .substr( *-2) given $str } } } -- cgit