From 6227164399d8a270dd5416ba91d9a49fe13cac69 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Wed, 23 Apr 2025 13:11:45 +0200
Subject: PWC 318

Task 1 Raku done
Task 2 Raku done
---
 challenge-318/luca-ferrari/blog-1.txt     |  1 +
 challenge-318/luca-ferrari/blog-2.txt     |  1 +
 challenge-318/luca-ferrari/raku/ch-1.raku | 14 ++++++++++++++
 challenge-318/luca-ferrari/raku/ch-2.raku | 17 +++++++++++++++++
 4 files changed, 33 insertions(+)
 create mode 100644 challenge-318/luca-ferrari/blog-1.txt
 create mode 100644 challenge-318/luca-ferrari/blog-2.txt
 create mode 100644 challenge-318/luca-ferrari/raku/ch-1.raku
 create mode 100644 challenge-318/luca-ferrari/raku/ch-2.raku

diff --git a/challenge-318/luca-ferrari/blog-1.txt b/challenge-318/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..07440de704
--- /dev/null
+++ b/challenge-318/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/04/23/PerlWeeklyChallenge318.html#task1
diff --git a/challenge-318/luca-ferrari/blog-2.txt b/challenge-318/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..9d5d36097f
--- /dev/null
+++ b/challenge-318/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/04/23/PerlWeeklyChallenge318.html#task2
diff --git a/challenge-318/luca-ferrari/raku/ch-1.raku b/challenge-318/luca-ferrari/raku/ch-1.raku
new file mode 100644
index 0000000000..918ab6295f
--- /dev/null
+++ b/challenge-318/luca-ferrari/raku/ch-1.raku
@@ -0,0 +1,14 @@
+#!raku
+
+#
+# Perl Weekly Challenge 318
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-318>
+#
+
+sub MAIN( Str $string ) {
+    $string.comb.unique.map( -> $char { ( $string ~~ / $char ** 3 / // '' ).Str } )
+		          .grep( { $_.chars == 3 } )
+		          .join( ', ' ).say;
+}
diff --git a/challenge-318/luca-ferrari/raku/ch-2.raku b/challenge-318/luca-ferrari/raku/ch-2.raku
new file mode 100644
index 0000000000..d9cd915d3e
--- /dev/null
+++ b/challenge-318/luca-ferrari/raku/ch-2.raku
@@ -0,0 +1,17 @@
+#!raku
+
+#
+# Perl Weekly Challenge 318
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-318>
+#
+
+sub MAIN( :@a, :@b) {
+
+    for 0 ^..^ @a.elems {
+	'True'.say and exit if ( @a[ 0 .. $_ ].reverse, @a[ $_ + 1 .. * - 1 ] ).flat ~~ @b;
+    }
+
+    'False'.say;
+}
-- 
cgit