tracks/perl6/exercises/phone-number/Example.pm6 in trackler-2.2.1.95 vs tracks/perl6/exercises/phone-number/Example.pm6 in trackler-2.2.1.96

- old
+ new

@@ -1,5 +1,5 @@ -unit module Phone:ver<3>; +unit module Phone:ver<4>; sub clean-number ($number is copy) is export { $number ~~ s:g/<:!Nd>//; $number ~~ /^ 1? ( [ <[2..9]> <:Nd> ** 2 ] ** 2 <:Nd> ** 4 ) $/ ?? ~$0 !! Nil; }