From 3acce03782b93287c4ff9feeff40528127466df7 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 28 Nov 2022 09:52:32 +0100
Subject: Task 2 done

---
 challenge-193/luca-ferrari/raku/ch-2.p6 | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 challenge-193/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-193/luca-ferrari/raku/ch-2.p6 b/challenge-193/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..57bac7bf61
--- /dev/null
+++ b/challenge-193/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,19 @@
+#!raku
+
+# Perl Weekly Challenge 193
+
+sub MAIN( *@s ) {
+    my %translations = ( 'a' .. 'z' ).map( { state $counter = 0; $_ => $counter++ } );
+
+    my %strings = @s.map( { $_ => $_.lc.comb.map( { %translations{ $_ }  } ) } );
+
+    for %strings.kv -> $current-string, $current-array {
+	my @difference;
+	for 1 ..^ $current-array.elems {
+	    @difference.push: $current-array[ $_ ] - $current-array[ $_ - 1 ];
+	}
+
+	$current-string.say if @difference.grep( { $_ !%% 2 } ).elems == @difference.elems;
+    }
+
+}
-- 
cgit