0

我有 2 个具有相同标签的记录列表id1。我需要一种加入他们的方法。

type A = { id1: int; name: string }

type B = { id1: int; id2: Option<int> }

let a1 = { id1 =  1; name = "nafis" }
let a2 = { id1 =  2; name = "habib" }

let b1 = { id1 = 1; id2 = Some(5) }
let b2 = { id1 = 1; id2 = None }
let b3 = { id1 = 2; id2 = None }

let a = [a1; a2]
let b = [b1; b2; b3]

printfn "%A" a =>  [({id1 = 1;name = "nafis";}, {id1 = 2;name = "habib";})]
printfn "%A" b =>  
[({id1 = 1; id2 = Some 5;}, {id1 = 1; id2 = None;}, {id1 = 2;id2 = None;})]

我如何加入这 2 个列表id1？

我想要这样的输出=>

[({id1 = 1;name = "nafis"; id2 = [Some 5; None];}, {id1 = 2;name = "habib"; id2 =[None];})]

某种形式的教程或博客链接会有所帮助。

4

1 回答 1

3

MSDN：查询表达式使您能够查询数据源并将数据放入所需的形式。查询表达式为 F# 中的 LINQ 提供支持。

正如评论中正确提到的，您需要有第三种类型的 C 来托管加入的结果，然后使用良好的旧 LINQ 加入列表：

type A = { id1: int; name: string }
type B = { id1: int; id2: Option<int> }
type C = { id1: int; name: string; id2: Option<int> }

let a1 = { id1 =  1; name = "nafis" }
let a2 = { id1 =  2; name = "habib" }

let b1 = { id1 = 1; id2 = Some(5) }
let b2 = { id1 = 1; id2 = None }
let b3 = { id1 = 2; id2 = None }

let a = [a1; a2]
let b = [b1; b2; b3]

let result (a:A list) (b: B list) = query {
    for list1 in a do
    join list2 in b on
        (list1.id1 = list2.id1)
    select {id1 = list1.id1; name = list1.name; id2= list2.id2}
}

let c = result a b |> List.ofSeq

结果：

val c : C list = [{id1 = 1;
               name = "nafis";
               id2 = Some 5;}; {id1 = 1;
                                name = "nafis";
                                id2 = None;}; {id1 = 2;
                                               name = "habib";
                                               id2 = None;}]
于 2019-07-04T17:43:46.050 回答