X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=appendix-a6.git;a=blobdiff_plain;f=parse;h=13fe2f23395fabb16bb0a9b15d3bc6496f9454ea;hp=f629457c42a04bc11ad9b6196152de80cdaa0dca;hb=454c5cdcf27ce0ac28aa9f62585387139690c779;hpb=c4f77b4c8d5bca1059b91c4b35fc5e83cbe1f376

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);