tracks/perl6/exercises/phone-number/.meta/solutions/Phone.pm6 in trackler-2.2.1.100 vs tracks/perl6/exercises/phone-number/.meta/solutions/Phone.pm6 in trackler-2.2.1.101
- old
+ new
@@ -1,5 +1,5 @@
-unit module Phone:ver<4>;
+unit module Phone:ver<5>;
sub clean-number ($number is copy) is export {
$number ~~ s:g/<:!Nd>//;
$number ~~ /^ 1? ( [ <[2..9]> <:Nd> ** 2 ] ** 2 <:Nd> ** 4 ) $/ ?? ~$0 !! Nil;
}