diff options
| -rw-r--r-- | challenge-098/luca-ferrari/raku/input.txt | 1 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/blog-1.txt | 1 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/blog-2.txt | 1 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/raku/ch-1.p6 | 16 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/raku/ch-2.p6 | 16 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/raku/people.txt | 5 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/raku/phone.txt | 5 |
7 files changed, 45 insertions, 0 deletions
diff --git a/challenge-098/luca-ferrari/raku/input.txt b/challenge-098/luca-ferrari/raku/input.txt new file mode 100644 index 0000000000..a614821304 --- /dev/null +++ b/challenge-098/luca-ferrari/raku/input.txt @@ -0,0 +1 @@ +1234ABCD5678EFGH diff --git a/challenge-110/luca-ferrari/blog-1.txt b/challenge-110/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..061a9b3d76 --- /dev/null +++ b/challenge-110/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/04/26/PerlWeeklyChallenge110.html#task1 diff --git a/challenge-110/luca-ferrari/blog-2.txt b/challenge-110/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..e45816a13e --- /dev/null +++ b/challenge-110/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/04/26/PerlWeeklyChallenge110.html#task2 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..d31e9fa671 --- /dev/null +++ b/challenge-110/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,16 @@ +#!raku + + +sub MAIN( Str $file-name = 'phone.txt' ) { + my $phone-regexp = rx/ \d ** 10 /; + my $prefix-regexp = rx/ + <[+]> \d ** 2 + || <[(]> \d ** 2 <[)]> + || \d ** 4 + /; + + + my $phone-rx = rx / ^ \s* $prefix-regexp \s+ $phone-regexp $ /; + + $_.say if $_ ~~ $phone-rx for $file-name.IO.lines; +} diff --git a/challenge-110/luca-ferrari/raku/ch-2.p6 b/challenge-110/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..ed01afe516 --- /dev/null +++ b/challenge-110/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,16 @@ +#!raku + +sub MAIN( Str $file-name = 'people.txt' ) { + + my @content; + @content.push: .split( ',' ) for $file-name.IO.lines; + + # for 0 ..^ @content[ 0 ].elems -> $column { + # my @row.push: @content[ $_ ][ $column ] for 0 ..^ @content.elems; + # @row.join( ',' ).say; + # } + + my @transposed.push: @content.map: *[ $_ ] for 0 ..^ @content[ 0 ].elems; + $_.join( ',' ).say for @transposed; + +} diff --git a/challenge-110/luca-ferrari/raku/people.txt b/challenge-110/luca-ferrari/raku/people.txt new file mode 100644 index 0000000000..716ebdce75 --- /dev/null +++ b/challenge-110/luca-ferrari/raku/people.txt @@ -0,0 +1,5 @@ +name,age,sex +Mohammad,45,m +Joe,20,m +Julie,35,f +Cristina,10,f 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 |