use CommodsDatabase;
my $widists= Graph::Undirected->new();
-my $wiarchs= Graph::Undirected->new(unionfind => 1);
+my $wiarchs= Graph::Undirected->new();
my @wiarchlabels;
my %wiisland2node;
my %winode2island;
$winode2island{$n}= $island;
$widists->add_vertex($n);
$wiarchs->add_vertex($n);
+#print "\$g->add_vertex('$n');\n";
printf PO "%d,%d island %s\n", $x,$y,$island;
} elsif (($solid,$x,$y,$dirn) =
m/^\{\{ chart\ league((?:\ solid)?) \|(\d+)\|(\d+)\|
$widists->add_weighted_edge($nn->(), nn_xy($bx,$by), 1);
$wiarchs->add_edge($nn->(), nn_xy($bx,$by)) if $solid;
+ $wiarchs->add_edge($nn->(), nn_xy($bx,$by)) if $solid;
+#print "\$g->add_edge('".$nn->()."','".nn_xy($bx,$by)."');\n" if $solid;
printf PO "%d,%d league %s %s \n", $x,$y,
$solid?'solid':'dotted', $dirn;
} sort $wiarchs->connected_component_by_index($ccix);
if (exists $wiccix2arch{$ccix}) {
- error("architecture determination failed:\n".
+ error("archipelago determination failed, wrongly merged:\n".
" archipelago $arch\n".
" archipelago $wiccix2arch{$ccix}\n".
$desc);
next;
}
$wiccix2arch{$ccix}= $arch;
- print "$ccix $arch ::\n$desc\n";
+# print "$ccix $arch ::\n$desc\n";
}
}
parse_database_map();
process_yppedia_graphs();
compare_island_lists();
-
-printf "%d %d %d %d\n", $wiarchs->has_edge('32,17','33,18'),
- $wiarchs->connected_component_by_vertex('32,17'),
- $wiarchs->connected_component_by_vertex('33,18'),
- $wiarchs->same_connected_components('32,17','33,18');