diff options
| -rwxr-xr-x | challenge-185/luca-ferrari/raku/ch-1.p6 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-185/luca-ferrari/raku/ch-1.p6 b/challenge-185/luca-ferrari/raku/ch-1.p6 new file mode 100755 index 0000000000..aa73c5563a --- /dev/null +++ b/challenge-185/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,11 @@ +#!raku + +# Perl Weekly Challenge 185 + +sub MAIN( Str $input-mac-address + where { $input-mac-address ~~ / ^ ( <[0..9a..f]> ** 4 <[.]> ) ** 2 <[0..9a..f]> ** 4 $ / } ) { + + my $output-mac-address = $input-mac-address.subst( /<[.]>/, '', :g ); + $output-mac-address.comb( :spit-empty ).rotor( 2 ).join( ':' ).subst( /\s+/, '', :g ).say; + +} |