From b6d6b490c82b89cc4ef53ed49f65225a880de00a Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Tue, 15 Jun 2021 10:47:46 +0200 Subject: Task 1 done. --- challenge-117/luca-ferrari/raku/ch-1.p6 | 11 +++++++++++ challenge-117/luca-ferrari/raku/test.txt | 14 ++++++++++++++ 2 files changed, 25 insertions(+) create mode 100644 challenge-117/luca-ferrari/raku/ch-1.p6 create mode 100644 challenge-117/luca-ferrari/raku/test.txt diff --git a/challenge-117/luca-ferrari/raku/ch-1.p6 b/challenge-117/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..9f070c9a2a --- /dev/null +++ b/challenge-117/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,11 @@ +#!raku + +sub MAIN( Str $file-name = 'test.txt' ) { + my %lines = $file-name.IO.lines.map: { my ( $number, $content ) = .split( ',' ); + $number.Int => $content.trim; + } + + say "Missing line $_ !" if %lines{ $_ }:!exists + for 1 .. %lines.keys.sort( *.Int <=> *.Int )[ * - 1 ]; + +} diff --git a/challenge-117/luca-ferrari/raku/test.txt b/challenge-117/luca-ferrari/raku/test.txt new file mode 100644 index 0000000000..5b9d9ab1ce --- /dev/null +++ b/challenge-117/luca-ferrari/raku/test.txt @@ -0,0 +1,14 @@ +11, Line Eleven +1, Line one +9, Line Nine +13, Line Thirteen +2, Line two +6, Line Six +8, Line Eight +10, Line Ten +7, Line Seven +4, Line Four +14, Line Fourteen +3, Line three +15, Line Fifteen +5, Line Five -- cgit From d5de553f892752e3eb4ed18573a98f7de569abaa Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Tue, 15 Jun 2021 11:29:52 +0200 Subject: Task 2 almost done. --- challenge-117/luca-ferrari/raku/ch-2.p6 | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 challenge-117/luca-ferrari/raku/ch-2.p6 diff --git a/challenge-117/luca-ferrari/raku/ch-2.p6 b/challenge-117/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..3a4070065f --- /dev/null +++ b/challenge-117/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,15 @@ +#!raku + + +sub MAIN( Int $n ) { + + my @directions.push: + 'R' x $n + , 'LH' x $n + , 'L' x $n ~ 'H' x $n + , 'LH' x ($n -1) ~ 'R' x ($n - 1 ) + , 'R' x ($n - 1) ~ 'LH' x ($n - 1 ) + , 'R' x ($n -1) ~ 'LH' x ($n - 1); + + @directions.unique.say; +} -- cgit From 25b8cf26873d47264f44ee431e90c41c1d87423c Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Tue, 15 Jun 2021 11:43:01 +0200 Subject: Blog references --- challenge-117/luca-ferrari/blog-1.txt | 1 + challenge-117/luca-ferrari/blog-2.txt | 1 + 2 files changed, 2 insertions(+) create mode 100644 challenge-117/luca-ferrari/blog-1.txt create mode 100644 challenge-117/luca-ferrari/blog-2.txt diff --git a/challenge-117/luca-ferrari/blog-1.txt b/challenge-117/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..dc808c92d7 --- /dev/null +++ b/challenge-117/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/06/15/PerlWeeklyChallenge117.html#task1 diff --git a/challenge-117/luca-ferrari/blog-2.txt b/challenge-117/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..34935ceac0 --- /dev/null +++ b/challenge-117/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/06/15/PerlWeeklyChallenge117.html#task2 -- cgit