next if $c->{NonCont};
$c->{Total} = 0;
$c->{Total} += $_->{Weight} foreach @{ $c->{Votes} };
- prf "candidate %-10s: %10s votes\n", $cand, $c->{Total};
$c->{History}[$stage-1] = $c->{Total};
}
+
+ foreach my $c (reverse sort total_history_cmp values %cands) {
+ prf "candidate %-10s: %10s votes\n", $c->{Cand}, $c->{Total};
+ }
}
sub computequota () {