Random Latin squares: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 1,686:
RandomLatinSquare[n_] := Module[{out, ord},
out = Table[RotateLeft[Range[n], i], {i, n}];
ord = RandomSample[Range[n]];
out = out[[All, ord]];
|