diff options
| author | Daniel Mita <mienaikage@gmail.com> | 2020-10-25 22:52:40 +0000 |
|---|---|---|
| committer | Daniel Mita <mienaikage@gmail.com> | 2020-10-25 22:52:40 +0000 |
| commit | e6b12730cafc45f68aa7558cd139e51b808fcad2 (patch) | |
| tree | c18ed0183cea79905c72ddf3eed33253bac1a780 /challenge-083/daniel-mita | |
| parent | a4454f0f6c4d9d06b6f63851e5131f24bbe11079 (diff) | |
| download | perlweeklychallenge-club-e6b12730cafc45f68aa7558cd139e51b808fcad2.tar.gz perlweeklychallenge-club-e6b12730cafc45f68aa7558cd139e51b808fcad2.tar.bz2 perlweeklychallenge-club-e6b12730cafc45f68aa7558cd139e51b808fcad2.zip | |
Small refactor for challenge-083-2 in Perl
Diffstat (limited to 'challenge-083/daniel-mita')
| -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] } ); |