chiark / gitweb /
compute-scottish-stv: sort countballots output
[appendix-a6.git] / compute-scottish-stv
index 575f10e..4715808 100755 (executable)
@@ -155,9 +155,12 @@ sub countballots () {
        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 () {