http://qs321.pair.com?node_id=1224764

dideod.yang has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks. I search the fastest way to search polygons not merged. I have polygons array at least 10000 EA. Of course I search CPAN. but CPAN didn't have modules I want. I search details on Math::Geometry::Planar or Math::Polygon::Calc.. but there are no my target.. Very simple way is that obtain all points in 1st polygon and check which point is inside of 2nd polygon. but this algorithm is not that good performance and stupid way I think.. Do you have any idea? also If I get some algorithm then how can I check all polygons. Basic way is using two foreach loop like below example. but that example performance is really bad. please give me nice idea.. thank you
foreach my $polygon1(@polygon){ foreach my $polygons2(@polygon){ # algorithm checking polygons not merged or overlapped } }