From c89d79cca37ff8afc48102a495d427b3fc86caee Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Tue, 1 Jun 2021 12:17:51 +0200 Subject: Task 1 and 2 done --- challenge-115/luca-ferrari/raku/ch-1.p6 | 13 +++++++++++++ challenge-115/luca-ferrari/raku/ch-2.p6 | 10 ++++++++++ 2 files changed, 23 insertions(+) create mode 100644 challenge-115/luca-ferrari/raku/ch-1.p6 create mode 100644 challenge-115/luca-ferrari/raku/ch-2.p6 diff --git a/challenge-115/luca-ferrari/raku/ch-1.p6 b/challenge-115/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..078dc2e32d --- /dev/null +++ b/challenge-115/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,13 @@ +#!raku + +sub MAIN( *@words where { @words.elems > 0 } ) { + + # get a list of all initiali letters + # and one of all tailing ones + my @headings = @words.map: *.substr( 0, 1 ); + my @tailings = @words.map: *.substr( * - 1 ); + + # if the sorted list are the same, there is a match! + say @headings.sort ~~ @tailings.sort ?? 1 !! 0; + +} diff --git a/challenge-115/luca-ferrari/raku/ch-2.p6 b/challenge-115/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..18809e844f --- /dev/null +++ b/challenge-115/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,10 @@ +#!raku + +sub MAIN( *@N where { @N.elems > 0 && @N.grep( * ~~ Int ).elems == @N.elems } ) { + # create a list of integers + # with only those that are divisible by 2 + my Int @numbers.push: .join.Int if .join.Int %% 2 for @N.permutations; + + # now ask for the max + say @numbers.max; +} -- cgit From c7b70879f027e0834db8c98ca68aeea1c4b456d5 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Tue, 1 Jun 2021 18:18:57 +0200 Subject: Blog references --- challenge-115/luca-ferrari/blog-1.txt | 1 + challenge-115/luca-ferrari/blog-2.txt | 1 + 2 files changed, 2 insertions(+) create mode 100644 challenge-115/luca-ferrari/blog-1.txt create mode 100644 challenge-115/luca-ferrari/blog-2.txt diff --git a/challenge-115/luca-ferrari/blog-1.txt b/challenge-115/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..661abd74c6 --- /dev/null +++ b/challenge-115/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/06/01/PerlWeeklyChallenge115.html#task1 diff --git a/challenge-115/luca-ferrari/blog-2.txt b/challenge-115/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..2fd54fb047 --- /dev/null +++ b/challenge-115/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/06/01/PerlWeeklyChallenge115.html#task2 -- cgit