From cbc991d678e6c7ee84471c7c6561a6084bb85ccd Mon Sep 17 00:00:00 2001 From: Andinus Date: Fri, 3 Sep 2021 16:52:15 +0530 Subject: Raku: Phone Number: Remove duplicate code with the use of proceed --- raku/phone-number/Phone.rakumod | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) (limited to 'raku/phone-number') diff --git a/raku/phone-number/Phone.rakumod b/raku/phone-number/Phone.rakumod index ef214b1..66a9e24 100644 --- a/raku/phone-number/Phone.rakumod +++ b/raku/phone-number/Phone.rakumod @@ -18,19 +18,12 @@ sub clean-number(Str $number --> Str) is export { # matches "("; die @errors[4] if $number.contains: /<[!:]>/; - given $number.comb.grep(/\d/)>>.Int { + my Int @num = $number.comb.grep(/\d/)>>.Int; + given @num { when .elems == 11 { die @errors[0] if .[0] !== 1; - - # Area code. - die @errors[5] if .[1] == 0; - die @errors[6] if .[1] == 1; - - # Exchange code. - die @errors[7] if .[4] == 0; - die @errors[8] if .[4] == 1; - - return .skip.join; + @num .= skip; + proceed; } when .elems == 10 { # Area code. @@ -45,6 +38,5 @@ sub clean-number(Str $number --> Str) is export { } when .elems > 11 { die @errors[1] } when .elems < 10 { die @errors[2] } - default { return .join } } } -- cgit 1.4.1-2-gfad0