Permutations by swapping: Difference between revisions
→{{header|F_Sharp|F#}}
Line 672:
<lang fsharp>
(*Implement Johnson-Trotter algorithm
Nigel Galloway
module Ring
let PlainChanges (N:'n[]) = seq{
|
Line 672:
<lang fsharp>
(*Implement Johnson-Trotter algorithm
Nigel Galloway
module Ring
let PlainChanges (N:'n[]) = seq{
|
edits