F # flatten tuples lồng nhau

Question

là có một cách để làm phẳng tuples kích thước tùy ý trong F # mà không ánh xạ chúng một cách rõ ràng?

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

Lưu ý: Tôi nhận được các loại bộ dữ liệu này từ FParsec nhưng khả năng sẽ thuận tiện nếu có sẵn.

cảm ơn,

Answer 1

Bạn không thể làm điều đó một cách dễ dàng, nhưng với một chút suy nghĩ nó có thể:

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 

Vì vậy, ví dụ:

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

sẽ cung cấp cho bạn :

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

LƯU Ý: Câu trả lời này er được dựa trên mã được tìm thấy here.