diff options
| author | E. Choroba <choroba@matfyz.cz> | 2024-05-27 15:55:52 +0200 |
|---|---|---|
| committer | E. Choroba <choroba@matfyz.cz> | 2024-05-27 16:48:06 +0200 |
| commit | 59bd648d130df8195f50377de49d6a676ed0ede7 (patch) | |
| tree | e47d0a0fdbd6655f588e2a68585c75c33168a5f9 | |
| parent | 141a2c357124c00dda182472650be78c509efd97 (diff) | |
| download | perlweeklychallenge-club-59bd648d130df8195f50377de49d6a676ed0ede7.tar.gz perlweeklychallenge-club-59bd648d130df8195f50377de49d6a676ed0ede7.tar.bz2 perlweeklychallenge-club-59bd648d130df8195f50377de49d6a676ed0ede7.zip | |
Optimise 270/2
| -rwxr-xr-x | challenge-270/e-choroba/perl/ch-2.pl | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/challenge-270/e-choroba/perl/ch-2.pl b/challenge-270/e-choroba/perl/ch-2.pl index 958d0938fa..0632f5713e 100755 --- a/challenge-270/e-choroba/perl/ch-2.pl +++ b/challenge-270/e-choroba/perl/ch-2.pl @@ -19,19 +19,17 @@ sub distribute_elements($x, $y, $ints) { || $seen{"@e"} > $price + $x; if (@$elements > 2 && 2 * $x > $y) { - for my $i (0 .. $#$elements - 1) { - for my $j ($i + 1 .. $#$elements) { - my @e = sort { $a <=> $b } $elements->[$i] + 1, - $elements->[$j] + 1, - @$elements[grep $_ != $i - && $_ != $j, - 0 .. $#$elements]; + for my $i (1, $#$elements) { + my @e = sort { $a <=> $b } $elements->[0] + 1, + $elements->[$i] + 1, + @$elements[grep $_ != 0 + && $_ != $i, + 0 .. $#$elements]; - $seen{"@e"} = $price + $y, - push @agenda, [$price + $y, \@e] - if ! exists $seen{"@e"} - || $seen{"@e"} > $price + $y; - } + $seen{"@e"} = $price + $y, + push @agenda, [$price + $y, \@e] + if ! exists $seen{"@e"} + || $seen{"@e"} > $price + $y; } } @@ -39,7 +37,7 @@ sub distribute_elements($x, $y, $ints) { } } -use Test::More tests => 2 + 14; +use Test::More tests => 2 + 17; is distribute_elements(3, 2, [4, 1]), 9, 'Example 1'; is distribute_elements(2, 1, [2, 3, 3, 3, 5]), 6, 'Example 2'; @@ -54,6 +52,9 @@ is distribute_elements(2, 3, [1, 1, 5]), 12, '2 3 [1 1 5]'; is distribute_elements(17, 1, [1, 9, 9]), 16, '17 1 [1 9 9]'; is distribute_elements(8, 9, [6, 6, 4, 2]), 34, '8 9 [6 6 4 2]'; is distribute_elements(6, 1, [2, 5, 5, 6]), 5, '6 1 [2 5 5 6]'; +is distribute_elements(9, 1, [1, 2, 3, 3, 7]), 12, '9 1 [1 2 3 3 7]'; +is distribute_elements(7, 3, [1, 4, 7, 7, 7]), 21, '7 3 [1 4 7 7 7]'; +is distribute_elements(9, 1, [7, 1, 1, 4, 8]), 12, '9 1 [7 1 1 4 8]'; is distribute_elements(1, 1, [1, 4, 3, 4, 5, 4, 2, 3, 7]), 15, '1 1 [1 4 3 4 5 4 2 3 7]'; is distribute_elements(4, 1, [1, 4, 1, 2, 5, 7, 1, 5]), 15, |