my $vb = $vs[$ib];
if ($va < $vb) { $vab[$ia][$ib]++; }
elsif ($vb < $va) { $vab[$ib][$ia]++; }
+ p $va; p $vb;
}
}
};
die "voter $voter $@" if $@;
}
-p %choices;
-p @vab;
+foreach my $iy (-2..$#choices) {
+ foreach my $ix (-2..$#choices) {
+ if ($iy==-1) {
+ if ($ix==-1) {
+ printf "+" or die;
+ } else {
+ printf "------" or die;
+ }
+ } elsif ($ix==-1) {
+ printf "|" or die;
+ } elsif ($ix==-2 && $iy==-2) {
+ printf "V(Y,X)" or die;
+ } elsif ($iy==-2) {
+ printf "%5s ", $choices[$ix] or die $!;
+ } elsif ($ix==-2) {
+ printf "%5s ", $choices[$iy] or die $!;
+ } else {
+ my $v = \( $vab[$iy][$ix] );
+ $$v += 0;
+ if ($$v) {
+ printf "%5d ", $$v or die $!;
+ } else {
+ printf "%5s ", "" or die $!;
+ }
+ }
+ }
+ printf "\n" or die $!;
+}
+
+#p %choices;
+#p @vab;