From fa81862d65fa9a2b4f1e70bf31092f7dc319543d Mon Sep 17 00:00:00 2001 From: Julien Fiegehenn Date: Wed, 28 Sep 2022 22:07:54 +0100 Subject: challenge 184, task 2 in perl --- challenge-184/julien-fiegehenn/perl/ch-2.pl | 34 +++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 challenge-184/julien-fiegehenn/perl/ch-2.pl diff --git a/challenge-184/julien-fiegehenn/perl/ch-2.pl b/challenge-184/julien-fiegehenn/perl/ch-2.pl new file mode 100644 index 0000000000..7e4e8c8987 --- /dev/null +++ b/challenge-184/julien-fiegehenn/perl/ch-2.pl @@ -0,0 +1,34 @@ +#!perl +use strict; +use warnings; + +sub array_split { + my @strings = @_; + my ( @numbers, @letters ); + foreach my $string (@strings) { + push @numbers, []; + push @letters, []; + foreach my $char ( split /\s/, $string ) { + push @{ ( $char =~ m/\d/ ? @numbers : @letters )[-1] }, $char; + } + pop @numbers unless scalar @{ $numbers[-1] }; + pop @letters unless scalar @{ $letters[-1] }; + } + return \@numbers, \@letters; +} + +use Test::More; +use Test::Deep; + +cmp_deeply( + [ array_split( 'a 1 2 b 0', '3 c 4 d' ) ], + [ [ [ 1, 2, 0 ], [ 3, 4 ] ], [ [ 'a', 'b' ], [ 'c', 'd' ] ] ], + 'first example' +); +cmp_deeply( + [ array_split( '1 2', 'p q r', 's 3', '4 5 t' ) ], + [ [ [ 1, 2 ], [3], [ 4, 5 ] ], [ [ 'p', 'q', 'r' ], ['s'], ['t'] ] ], + 'second example' +); + +done_testing; \ No newline at end of file -- cgit