- print "defeat: $choices[$ia] beats $choices[$ib] ($vab > $vba)\n";
- $defeats->add_vertex($choices[$ia],$choices[$ib]);
+ my $diff = $vab - $vba;
+ print "defeat: $choices[$ia] beats $choices[$ib]",
+ " ($vab > $vba: $diff)\n";
+ $defeats->add_edge($choices[$ia],$choices[$ib]);