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