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

wip
---

diff --git a/parse b/parse
index f629457..13fe2f2 100755
--- a/parse
+++ b/parse
@@ -58,7 +58,7 @@ our @vab;
 
 # Go through the voters and construct V(A,B)
 
-print "\nDefeats matrix\n";
+print "\nPreference matrix\n";
 
 foreach my $iv (@invotes) {
     my ($votestr,$voter) = @$iv;
@@ -148,7 +148,9 @@ foreach my $i (0..$#choices) {
     drop $i, "majority ratio ($vad * $majr->[1] <= $vda * $majr->[0])";
 }
 
-my $defeats = Graph::Directed->new; # A.6(4)
+print "\nDefeats A.6(4)\n";
+
+my $defeats = Graph::Directed->new;
 
 sub chremain () {
     return grep { !$ch[$_]{Dropped} } (0..$#ch);