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

diff --git a/parse b/parse
index f629457..13fe2f2 100755 (executable)
--- 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);