chiark / gitweb /
wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 2 Feb 2014 18:17:04 +0000 (18:17 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 2 Feb 2014 18:17:04 +0000 (18:17 +0000)
parse

diff --git a/parse b/parse
index 90f46fe..9e1f6b4 100755 (executable)
--- 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;