ソートされた(?) 順列シーケンス

F#

ソースコードはこちら


■実行方法

let run() =
    "abcd".ToCharArray()
    |> Array.toList
    |> permutation
    |> Seq.iter (printfn "%A")

■実行結果

['a'; 'b'; 'c'; 'd']
['a'; 'b'; 'd'; 'c']
['a'; 'c'; 'b'; 'd']
['a'; 'c'; 'd'; 'b']
['a'; 'd'; 'b'; 'c']
['a'; 'd'; 'c'; 'b']
['b'; 'a'; 'c'; 'd']
['b'; 'a'; 'd'; 'c']
['b'; 'c'; 'a'; 'd']
['b'; 'c'; 'd'; 'a']
['b'; 'd'; 'a'; 'c']
['b'; 'd'; 'c'; 'a']
['c'; 'a'; 'b'; 'd']
['c'; 'a'; 'd'; 'b']
['c'; 'b'; 'a'; 'd']
['c'; 'b'; 'd'; 'a']
['c'; 'd'; 'a'; 'b']
['c'; 'd'; 'b'; 'a']
['d'; 'a'; 'b'; 'c']
['d'; 'a'; 'c'; 'b']
['d'; 'b'; 'a'; 'c']
['d'; 'b'; 'c'; 'a']
['d'; 'c'; 'a'; 'b']
['d'; 'c'; 'b'; 'a']
    • -