Lines 516-532
RETRY:
Link Here
|
516 |
} |
516 |
} |
517 |
} |
517 |
} |
518 |
|
518 |
|
519 |
# Remove any item which have no finite transport cost with respect to any of the hold requests. |
|
|
520 |
for ( my $i = 0, my $i0 = 0 ; $i < $num_agents ; $i++ ) { |
521 |
if ( !$candidate_agents[$i] ) { |
522 |
splice @m, $i - $i0, 1; |
523 |
splice @remaining_items, $i - $i0, 1; |
524 |
$i0++; |
525 |
} |
526 |
} |
527 |
|
528 |
$num_agents = scalar(@remaining_items); |
529 |
|
530 |
# Remove any hold request for which there is no finite transport cost item available. |
519 |
# Remove any hold request for which there is no finite transport cost item available. |
531 |
my $removed_something = 0; |
520 |
my $removed_something = 0; |
532 |
|
521 |
|
533 |
- |
|
|