Help for this page

Select Code to Download


  1. or download this
          unless ( ($p1 == $p2) || $found->{$p2}->{$p1} ) {
  2. or download this
            $found->{$p2}->{$p1} = 1;
  3. or download this
            $found->{$p1}->{$p2} = 1;
  4. or download this
          my %found; ## instead of my $found = {};
...
      unless ( ($p1 == $p2) || $found{ "$p2|$p1" } ) {
...
        $found->{ "$p1|$p2" } = 1;
  5. or download this
    #!/usr/bin/perl
use YAML qw(Load);
...
Unintersected edges 1699
Intersects parsed in :177 wallclock secs (173.06 usr +  0.23 sys = 173
+.30 CPU)