From 454c5cdcf27ce0ac28aa9f62585387139690c779 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 2 Feb 2014 21:35:23 +0000
Subject: [PATCH] wip

---
 parse | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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