Revision as of 17:55, 16 July 2019 (view source) Nigel Galloway (talk \| contribs) (→‎{{header\|F_Sharp\|F#}}) ← Older edit		Revision as of 18:01, 16 July 2019 (view source) Nigel Galloway (talk \| contribs) (→‎{{header\|F_Sharp\|F#}}) Newer edit →
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 34;N 23;N 12\|] [\|0..4\|] in Seq.item (N 55) (normLS 5) \|> List.map(lN2p [\|N 45;N 34;N 23;N 12\|]) \|> List.permute(fun n->β.[n]) \|> List.iter(printfn "%A") printfn "" let β=lN2p [\|0;N 34;N 23;N 12\|] [\|0..4\|] in Seq.item (N 55) (normLS 5) \|> List.map(lN2p [\|N 45;N 34;N 23;N 12\|]) \|> List.permute(fun n->β.[n]) \|> List.iter(printfn "%A") </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\|]▼ [\|4; 5; 3; 21; 14; 2\|] [\|21; 4; 15; 52; 3\|] [\|34; 21; 52; 13; 45\|] [\|52; 15; 43; 31; 24\|] ▲[\|1; 3; 2; 4; 5; 1\|] [\|24; 31; 42; 15; 53\|] [\|3; 25; 51; 42; 14\|] [\|52; 4; 15; 23; 31\|] [\|1~~; 5~~; 2; 3; 4; 5\|] [\|45; 13; 34; 51; 2\|] </pre>

Random Latin squares: Difference between revisions

Random Latin squares (view source)