Task 1 done

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-209/luca-ferrari/raku/ch-1.p6 b/challenge-209/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..54e536dcb2
--- /dev/null
+++ b/challenge-209/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,23 @@
+#!raku
+
+#
+# Perl Weekly Challenge 209
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-209/>
+#
+
+sub MAIN( *@bits where { @bits.grep( * ~~ any(1, 0) ).elems == @bits.elems } ) {
+    my @chars = @bits.rotor( 2, :partial ).map(
+	                                        {
+						       given ( $_.join ) {
+						           when '10' { 'b' }
+						           when '11' { 'c' }
+						           when '0'  { 'a' }
+						           default   { 'z' }
+						       }
+                                                 } );
+
+    '1'.say and exit if ( @chars[ * - 1 ] ~~ 'a' );
+    '0'.say;
+}