From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 23 Aug 2016 12:13:51 +0000 (+0100)
Subject: compute-scottish-stv: format output for slightly easier comparison
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=appendix-a6.git;a=commitdiff_plain;h=5aadf4171505c30873eb9c1cc0deeaa752f095be;hp=163ff5fe92d09360697b9ca48e792e50625f5c0d

compute-scottish-stv: format output for slightly easier comparison
---

diff --git a/compute-scottish-stv b/compute-scottish-stv
index 81dc6ad..a7fb378 100755
--- a/compute-scottish-stv
+++ b/compute-scottish-stv
@@ -201,7 +201,7 @@ sub sv ($) {
 
 sub prf {
     my $fmt = shift;
-    printf "stage %d: ".$fmt, $stage, @_;
+    printf " ".$fmt, @_;
 }
 
 sub countballots () {
@@ -223,7 +223,8 @@ sub computequota () {
     my $totalvalid = 0/1;
     $totalvalid += $_->{Total} foreach values %cands;
     $quota = floor($totalvalid / (1 + $seats) + 1);
-    prf "total valid %s quota %s\n", (sv $totalvalid), (sv $quota);
+    prf "total valid %s\n", sv $totalvalid;
+    prf "quota       %s\n", sv $quota;
 }
 
 sub total_history_cmp () {
@@ -311,6 +312,7 @@ $stage = 0;
 
 for (;;) {
     $stage++;
+    printf "stage %3d:\n", $stage;
 
     sortballots @allvotes if $stage == 1;