From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 2 Feb 2014 18:17:04 +0000 (+0000)
Subject: wip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=appendix-a6.git;a=commitdiff_plain;h=791a9f8e53b9fa641072b89676620d08f5dd53e5

wip
---

diff --git a/parse b/parse
index 90f46fe..9e1f6b4 100755
--- a/parse
+++ b/parse
@@ -69,11 +69,41 @@ foreach my $iv (@invotes) {
 		my $vb = $vs[$ib];
 		if ($va < $vb) { $vab[$ia][$ib]++; }
 		elsif ($vb < $va) { $vab[$ib][$ia]++; }
+		p $va; p $vb;
 	    }
 	}
     };
     die "voter $voter $@" if $@;
 }
 
-p %choices;
-p @vab;
+foreach my $iy (-2..$#choices) {
+    foreach my $ix (-2..$#choices) {
+	if ($iy==-1) {
+	    if ($ix==-1) {
+		printf "+" or die;
+	    } else {
+		printf "------" or die;
+	    }
+	} elsif ($ix==-1) {
+	    printf "|" or die;
+	} elsif ($ix==-2 && $iy==-2) {
+	    printf "V(Y,X)" or die;
+	} elsif ($iy==-2) {
+	    printf "%5s ", $choices[$ix] or die $!;
+	} elsif ($ix==-2) {
+	    printf "%5s ", $choices[$iy] or die $!;
+	} else {
+	    my $v = \( $vab[$iy][$ix] );
+	    $$v += 0;
+	    if ($$v) {
+		printf "%5d ", $$v or die $!;
+	    } else {
+		printf "%5s ", "" or die $!;
+	    }
+	}
+    }
+    printf "\n" or die $!;
+}
+
+#p %choices;
+#p @vab;