"Source: Text/Basics/RngMPol.text";
"Line: 1779";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Basics/RngMPol.text, line: 1779
// Example: H25E9 ()
print "Example: H25E9";
ei := GetEchoInput();
SetEchoInput(true);
// Create polynomial ring over R of rank n
PRing := function(R, n)
    P := PolynomialRing(R, n);
    AssignNames(~P, ["x" cat IntegerToString(i): i in [1..n]]);
    return P;
end function;
// Create Vandermonde matrix of rank n
Vandermonde := function(n)
    P := PRing(IntegerRing(), n);
    return MatrixRing(P, n) ! [P.i^(j - 1): i, j in [1 .. n]];
end function;
V := Vandermonde(6);
V;
D := Determinant(V);
#Terms(D);
assert $1 eq 720;
TotalDegree(D);
assert $1 eq 15;
time Factorization(D);
SetEchoInput(ei);
