From 2251d06cbf7d16682040782d415c371a43fdf275 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 21 Aug 2016 21:12:29 +0100 Subject: [PATCH] compute-scottish-stv: sort countballots output Signed-off-by: Ian Jackson --- compute-scottish-stv | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 () { -- 2.30.2