diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-04-26 10:56:45 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-04-26 10:56:45 +0200 |
| commit | a05d653452a1c0c9366c6e62e8a51570068f6af0 (patch) | |
| tree | b872bdb6fdda36bda60457782554236b52ef7e18 | |
| parent | a86f90bf5060f5cc194f82d4e05eff2954326f6b (diff) | |
| download | perlweeklychallenge-club-a05d653452a1c0c9366c6e62e8a51570068f6af0.tar.gz perlweeklychallenge-club-a05d653452a1c0c9366c6e62e8a51570068f6af0.tar.bz2 perlweeklychallenge-club-a05d653452a1c0c9366c6e62e8a51570068f6af0.zip | |
Better task 1
| -rw-r--r-- | challenge-110/luca-ferrari/raku/ch-1.p6 | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/challenge-110/luca-ferrari/raku/ch-1.p6 b/challenge-110/luca-ferrari/raku/ch-1.p6 index 2eee9c781f..d31e9fa671 100644 --- a/challenge-110/luca-ferrari/raku/ch-1.p6 +++ b/challenge-110/luca-ferrari/raku/ch-1.p6 @@ -2,9 +2,15 @@ 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 $ /; + my $phone-regexp = rx/ \d ** 10 /; + my $prefix-regexp = rx/ + <[+]> \d ** 2 + || <[(]> \d ** 2 <[)]> + || \d ** 4 + /; - say $_ if $_ ~~ any @regexps for $file-name.IO.lines; + + my $phone-rx = rx / ^ \s* $prefix-regexp \s+ $phone-regexp $ /; + + $_.say if $_ ~~ $phone-rx for $file-name.IO.lines; } |