Select Code to Download

    for( my $k = 0 ; $k < $n ; $k++ ) {
        next if $k == $j;
...
                        / ( $pair_points[$j]->[0] - $pair_points[$k]->
+[0]);
        $pol *= $generic_pol;
    }