Try making a constructed list with this script:
Begin Unverified Perl
# Parameters
my $parentList = 'list1';
my $constantSumQ = 'ConstantSumQ';
# Run
my %scores = ();
for (my $i = 1; $i <= LISTLENGTH($parentList); $i++) {
$scores{$i} = GETVALUE($constantSumQ . '_' . $i);
}
my @keys = sort { $scores{$b} <=> $scores{$a} } keys(%scores);
for (my $i = 0; $i < 3; $i++) {
ADD($parentList, $keys[$i]);
}
End Unverified
Lines 3 and 4 must be updated with the names of the parent list and constant sum question, respectively.