return grep { !$ch[$_]{Dropped} } (0..$#ch);
}
-foreach my $ia (chremain()) {
+foreach my $ia (0..$#ch) {
$defeats->add_vertex($choices[$ia]);
- foreach my $ib (chremain()) {
+ foreach my $ib (0..$#ch) {
my $vab = scalar @{ $vab[$ia][$ib] };
my $vba = scalar @{ $vab[$ib][$ia] };
next unless $vab > $vba;
our $showg = $defeats->deep_copy();
+foreach my $ix (0..$#ch) {
+ my $cho = $ch[$ix];
+ next unless $cho->{Dropped};
+ $defeats->delete_vertex($choices[$ix]);
+}
+
our $schwartz;
for (;;) {