From af8d0436ba764c6683c3dc1810c0012d4f81a4eb Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 3 Oct 2022 10:06:21 +0200 Subject: Task 1 done --- challenge-185/luca-ferrari/raku/ch-1.p6 | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100755 challenge-185/luca-ferrari/raku/ch-1.p6 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; + +} -- cgit