F＃はネストされたタプルをフラットにします

Question

明示的にマッピングせずにF＃の任意のサイズのタプルをフラット化する方法はありますか？

(fun ((((a0,a1),a2),b),c) -> (a0,a1,a2,b,c)) 

メモ：私はFParsecからこのような種類のタプルを取得していますが、一般的に利用可能な場合は機能が便利です。

おかげで、

Answer 1

あなたは簡単にそれを行うことはできませんが、反射のビットでそれが可能である：

let isTuple tuple = 
    Microsoft.FSharp.Reflection.FSharpType.IsTuple(tuple.GetType()) 

let tupleValues (tuple : obj) = 
    Microsoft.FSharp.Reflection.FSharpValue.GetTupleFields tuple |> Array.toList 

let rec flatten tupleFields = 
    tupleFields |> List.collect(fun value -> 
     match isTuple value with 
     | true -> flatten (tupleValues value) 
     | false -> [value] 
    ) 

let tupleToList (tuple : obj) = 
    if isTuple tuple 
     then Some (tupleValues tuple |> flatten) 
     else None 

したがって、たとえば：

let s = tupleToList ((100,101,102,103),1,2,3,(4,5)) 

はあなたを与えるだろう：

[100; 101; 102; 103; 1; 2; 3; 4; 5] 

注：これはerはコードが見つかったhereに基づいています。