Task 2 done

1 files changed, 19 insertions, 0 deletions

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;
+    }
+
+}