Use randomElement in packages

Eventually -> random(List)

Author: d-torrance

M2/Macaulay2/packages/CpMackeyFunctors/Tests/BoxProductTests.m2

@@ -27,7 +27,7 @@ assert (class (inverse f) ===MackeyFunctorHomomorphism)
 
 -- Test induced map on box products
 for i to 5 do (
-    p = random {2,3,5,7};
+    p = randomElement {2,3,5,7};
     n = random 21;
     M = makeRandomCpMackeyFunctor(p);
     A = makeBurnsideMackeyFunctor(p);
@@ -36,4 +36,4 @@ for i to 5 do (
     assert (timesn**M == map(A**M,A**M,n));
 );
 
-///
+///

M2/Macaulay2/packages/FastMinors.m2

@@ -345,7 +345,7 @@ chooseRandomNonzeroSubmatrix(ZZ, Matrix) := opts -> (n1, M1) -> (
       --curList = flatten entries curM1;
       entryList = entries transpose matrix nonzeroEntries(curM1);
       if #entryList == 0 then return null;
-      curEntry = random entryList;
+      curEntry = randomElement entryList;
       --print (curList#curMax);
       curRow = curEntry#0;
       curCol = curEntry#1;

M2/Macaulay2/packages/MultiprojectiveVarieties.m2

@@ -1000,7 +1000,7 @@ line (EmbeddedProjectiveVariety,EmbeddedProjectiveVariety) := (X,p) -> (
     if dim V >= 2 then return linearSpan {p,point V};
     L := select(decompose V,l -> dim l == 1 and degree l == 1);
     if # L == 0 then error("failed to find line in "|toString(? X));
-    random L
+    randomElement L
 );
 line (EmbeddedProjectiveVariety,ZZ) := (X,n) -> (
     L := try line(X,point X) else null;

M2/Macaulay2/packages/SpaceCurves.m2

@@ -566,7 +566,7 @@ curve (ZZ,ZZ,Ring) := (d,g,R) -> (
     --generates a random curve of degree d and genus g in a given ring
     if 2*g == (d-1)*(d-2) then return ideal(random(1,R),random(d,R));
     L := smoothDivisors(d,g,R);
-    if L != {}  then return curve random L
+    if L != {}  then return curve randomElement L
     else print "No smooth curve with this degree and genus exists!";   
 )
 curve (ZZ,ZZ) := (d,g) -> (

M2/Macaulay2/packages/Tableaux/algorithms.m2

@@ -175,7 +175,7 @@ randomSemistandardTableau (Partition,Partition,ZZ) := (lam,mu,maxEntry) -> (
         --possibleEntries := toList(minEntry .. maxEntry);
         possibleEntries := join toSequence for i from minEntry to maxEntry list toList((2^(i-1)):i);
 
-        T_thePosition = random possibleEntries;
+        T_thePosition = randomElement possibleEntries;
         );
 
     youngTableau(lam,mu,new List from entries T)

M2/Macaulay2/packages/VirtualResolutions.m2

@@ -319,7 +319,7 @@ randomMonomialCurve (ZZ,ZZ,Ring) := Ideal => (d,e,F) -> (
     uVars := flatten entries vars U;
     --- Choose random monomial to define map to P2.
     B := drop(drop(flatten entries basis({e,0,0},U),1),-1);
-    f := random B;
+    f := randomElement B;
     --- Defines graph of morphisms in P1x(P1xP2)
     M1 := matrix {{(uVars#0)^d,(uVars#1)^d},{uVars#2,uVars#3}};
     M2 := matrix {{(uVars#0)^e,(uVars#1)^e,f},{uVars#4,uVars#5,uVars#6}};

M2/Macaulay2/packages/WhitneyStratifications.m2

@@ -1205,7 +1205,7 @@ fiberContAssocPrimes=(IY,ConX)->(
     -- if we want to use Msolve here 
     --can replace I with monomialIdeal leadTerm(I), and use Msolve for leadTerm
     mis:= independentSets(IY);
-    u:=support(random mis);
+    u:=support(randomElement mis);
     xMinusU:=rsort toList(set(gens R) - set(u));
     els:=(#xMinusU)+numgens(R);
     S1:=kk[xMinusU, (gens S)_(toList(numgens(R)..numgens(S)-1)),u,MonomialOrder => {els,numgens(S)-els}];