Random Latin squares: Difference between revisions
→{{header|F_Sharp|F#}}
Line 27:
// Generate 2 Random Latin Squares of order 5. Nigel Galloway: July 136th., 2019
let N=let N=System.Random() in (fun n->N.Next(n))
let β=lN2p [|0;N
printfn ""
let β=lN2p [|0;N
</lang>
{{out}}
<pre>
let β=lN2p [|0;N 4;N 3;N 2|] [|0..4|] in Seq.item (N 55) (normLS 5) |> List.map(lN2p [|N 5;N 4;N 3;N 2|]) |> List.permute(fun n->β.[n]) |> List.iter(printfn "%A")
[|1; 3; 2; 4; 5|]▼
[|
[|
[|
[|
[|
[|3;
[|
[|1
[|
</pre>
|