diff options
| -rw-r--r-- | challenge-110/luca-ferrari/raku/ch-1.p6 | 10 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/raku/phone.txt | 5 |
2 files changed, 15 insertions, 0 deletions
diff --git a/challenge-110/luca-ferrari/raku/ch-1.p6 b/challenge-110/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..2eee9c781f --- /dev/null +++ b/challenge-110/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,10 @@ +#!raku + + +sub MAIN( Str $file-name = 'phone.txt' ) { + my @regexps = rx / ^ \s* <[+]> \d ** 2 \s+ \d ** 10 $ / + , rx / ^ \s* <[(]> \d ** 2 <[)]> \s+ \d ** 10 $ / + , rx / ^ \s* \d ** 4 \s+ \d ** 10 $ /; + + say $_ if $_ ~~ any @regexps for $file-name.IO.lines; +} diff --git a/challenge-110/luca-ferrari/raku/phone.txt b/challenge-110/luca-ferrari/raku/phone.txt new file mode 100644 index 0000000000..48d6254741 --- /dev/null +++ b/challenge-110/luca-ferrari/raku/phone.txt @@ -0,0 +1,5 @@ +0044 1148820341 + +44 1148820341 + 44-11-4882-0341 +(44) 1148820341 + 00 1148820341 |