From 4349ac4778e200e3a5865ddd94b3b044deee7f54 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 26 Apr 2021 09:05:09 +0200 Subject: Task 1 done --- challenge-110/luca-ferrari/raku/ch-1.p6 | 10 ++++++++++ challenge-110/luca-ferrari/raku/phone.txt | 5 +++++ 2 files changed, 15 insertions(+) create mode 100644 challenge-110/luca-ferrari/raku/ch-1.p6 create mode 100644 challenge-110/luca-ferrari/raku/phone.txt 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 -- cgit