F # iç içe yerleştirilmiş tuple

Question

F # 'de açıkça boyutlandırma olmadan keyfi boyuttaki tuple'ları düzleştirmenin bir yolu var mı?

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

bir not olarak ben FParsec JOIN ile bu tür alıyorum ama genellikle mevcut olsaydı yeteneği uygun olacaktır.

sayesinde

Answer 1

Kolayca bunu yapamaz, ancak yansıma biraz mümkündür:

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 

Yani, örneğin:

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

size verecek :

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

NOT: Bu CEV er kodu bulunan here dayanmaktadır.