Select Code to Download

use Math::Polynomial::Solve qw! poly_derivative poly_roots !;

# $rep is the right endpoint of the interval [0, $rep]
...
        }
    }
}