diff options
| -rw-r--r-- | challenge-193/luca-ferrari/raku/ch-2.p6 | 19 |
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; + } + +} |