diff options
| author | Mark Anderson <mark@andemark.io> | 2025-11-10 09:24:27 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2025-11-10 09:24:27 +0000 |
| commit | 420c7e51766177b451734fd7de54b976ecabf47f (patch) | |
| tree | 3be3e33cb21b02380fda3c0127bbed69c4743713 | |
| parent | 38b8cc06182321a196a4455cefde03bd0c2df53e (diff) | |
| download | perlweeklychallenge-club-420c7e51766177b451734fd7de54b976ecabf47f.tar.gz perlweeklychallenge-club-420c7e51766177b451734fd7de54b976ecabf47f.tar.bz2 perlweeklychallenge-club-420c7e51766177b451734fd7de54b976ecabf47f.zip | |
Challenge 347 Solutions (Raku)
| -rw-r--r-- | challenge-347/mark-anderson/raku/ch-2.raku | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-347/mark-anderson/raku/ch-2.raku b/challenge-347/mark-anderson/raku/ch-2.raku index f5682c59e3..5189bbb8ce 100644 --- a/challenge-347/mark-anderson/raku/ch-2.raku +++ b/challenge-347/mark-anderson/raku/ch-2.raku @@ -7,24 +7,24 @@ is format-phone-number('12 345-6789'), '123-456-789'; is format-phone-number('123 4567'), '123-45-67'; is format-phone-number('123 456-78'), '123-456-78'; -sub format-phone-number($str is copy) +sub format-phone-number($phone is copy) { - $str .= subst(/<space> | '-'/, :g); + $phone .= subst(/<space> | '-'/, :g); - .join('-') given do given $str.chars % 3 + .join('-') given do given $phone.chars % 3 { when 0 { - m:g/.../ given $str + m:g/.../ given $phone } when 1 { flat .substr(0, *-4) ~~ m:g/.../, - .substr( *-4) ~~ m:g/../ given $str + .substr( *-4) ~~ m:g/../ given $phone } when 2 { flat .substr(0, *-2) ~~ m:g/.../, - .substr( *-2) given $str + .substr( *-2) given $phone } } } |