diff options
| -rwxr-xr-x | challenge-083/daniel-mita/perl/ch-2.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/challenge-083/daniel-mita/perl/ch-2.pl b/challenge-083/daniel-mita/perl/ch-2.pl index 9883d94635..69a1af4ec6 100755 --- a/challenge-083/daniel-mita/perl/ch-2.pl +++ b/challenge-083/daniel-mita/perl/ch-2.pl @@ -15,13 +15,14 @@ if ( @ARGV == 0 || grep { !looks_like_number($_) || $_ < 1 } @ARGV ) { my @combinations; for ( my $i = 0; $i < @ARGV; $i++ ) { for ( my $j = $i; $j < @ARGV; $j++ ) { - push @combinations, [ @ARGV[ $i .. $j ] ]; + push @combinations, [ @ARGV[ $i .. $j ] ] + if sum( @ARGV[ $i .. $j ] ) <= sum(@ARGV) / 2; } } say scalar( - @{ [ sort { sum( @{$b} ) <=> sum( @{$a} ) || @{$a} <=> @{$b} } - grep { sum( @{$_} ) <= sum(@ARGV) / 2 } @combinations - ]->[0] + @{ ( sort { sum( @{$b} ) <=> sum( @{$a} ) || @{$a} <=> @{$b} } + @combinations + )[0] } ); |