Random Latin squares: Difference between revisions
Content added Content deleted
Line 27: | Line 27: | ||
// Generate 2 Random Latin Squares of order 5. Nigel Galloway: July 136th., 2019 |
// 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 N=let N=System.Random() in (fun n->N.Next(n)) |
||
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") |
let rc()=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") |
||
printfn "" |
rc(); printfn ""; rc() |
||
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") |
|||
</lang> |
</lang> |
||
{{out}} |
{{out}} |