print "defeat: $choices[$ia] beats $choices[$ib]",
" ($vab > $vba = +$diff)\n";
$defeats->add_edge($choices[$ia],$choices[$ib]);
+ my $label = "$diff($vab:$vba)";
+ $label .= "\n". join ' ', @{ $vab[$ia][$ib] };
+ $label .= "\n/". join ' ', @{ $vab[$ib][$ia] };
+ $defeats->set_edge_attribute($choices[$ia],$choices[$ib],
+ label => $label);
}
}