Select Code to Download

for (my $n=1;$n<=$neighboorCNT;$n++) {
      if ($neighborEdges->{$n}) {

for my $n (@$neighborEdges){

sub Determinant {
  return ($_[0]*$_[3] - $_[2]*$_[1]);
}

sub SegmentIntersection {
  my @points = @{$_[0]};
...
    return $n1 > $d && $n2 > $d && $n1 < 0 && $n2 < 0;
  }
}