X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=appendix-a6.git;a=blobdiff_plain;f=compute-scottish-stv;h=4715808de5057be8fcc5bb30f59ca19c3080df58;hp=575f10ed4f5275812acc8dcf3493f0f5b3326653;hb=2251d06cbf7d16682040782d415c371a43fdf275;hpb=4cd1697174e964f23d0ad06faaa2bcd24288d174

diff --git a/compute-scottish-stv b/compute-scottish-stv
index 575f10e..4715808 100755
--- a/compute-scottish-stv
+++ b/compute-scottish-stv
@@ -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 () {