Home
Random
Log in
Settings
About Rosetta Code
Disclaimers
Rosetta Code
Search
Random Latin squares: Difference between revisions
Page
Discussion
← Older edit
Newer edit →
Random Latin squares
(view source)
Revision as of 18:03, 16 July 2019
165 bytes removed
,
4 years ago
→{{header|F_Sharp|F#}}
Revision as of 18:01, 16 July 2019
(
view source
)
Nigel Galloway
(
talk
|
contribs
)
(
→{{header|F_Sharp|F#}}
)
← Older edit
Revision as of 18:03, 16 July 2019
(
view source
)
Nigel Galloway
(
talk
|
contribs
)
(
→{{header|F_Sharp|F#}}
)
Newer edit →
Line 33:
{{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")
[|5; 3; 1; 4; 2|]
[|1; 4; 5; 2; 3|]
Nigel Galloway
2,172
edits