diff options
| -rw-r--r-- | challenge-209/luca-ferrari/raku/ch-1.p6 | 23 |
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; +} |