+
+ last unless @weakest;
+
+ printf "weakest defeats %d > %d",
+ (scalar @{ $vab[$_->[0]][$_->[1]] }),
+ (scalar @{ $vab[$_->[1]][$_->[0]] });
+ foreach my $weakest (@weakest) {
+ my ($ia,$ib) = @$weakest;
+ print "weakest defeat $choices[$ia] > $choices[$ib]\n";
+ $defeats->delete_edge($ia,$ib);
+ }
+
+ print "defeats within the Schwartz set, round again\n";