Contents

unit module Phone:ver<3>;

sub clean-number ($number is copy) is export {
  $number ~~ s:g/<:!Nd>//;
  $number ~~ /^ 1? ( [ <[2..9]> <:Nd> ** 2 ] ** 2 <:Nd> ** 4 ) $/ ?? ~$0 !! Nil;
}

Version data entries

148 entries across 148 versions & 1 rubygems

Version	Path
trackler-2.2.1.75	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.74	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.73	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.72	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.71	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.70	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.69	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.68	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.67	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.66	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.65	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.64	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.63	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.62	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.61	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.60	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.59	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.58	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.57	tracks/perl6/exercises/phone-number/Example.pm6
trackler-2.2.1.56	tracks/perl6/exercises/phone-number/Example.pm6