f# 中有没有办法对列表执行交叉操作？

Question

f# 中有没有办法对 f# 中两个列表的所有可能元素组合执行操作？

例子

l1 = [1;2;3]

l2=[4;5;6]

let plus x y = x+y

然后 fun plus l1 l2 将执行[(1+4);(1+5);(1+6);(2+4);(2+5);(2+6);(3+4);(3+5);(3+6)]

因此 output： [5;6;7;6;7;8;7;8;9]

注意：我尝试过使用 zip 但它只需要每个元素一次。

Answer 1

是的，最简单的方法是使用列表推导。

let t1 = [1;2;3]
let t2 = [4;5;6]

[for a in t1 do for b in t2 do yield a+b] //val it : int list = [5; 6; 7; 6; 7; 8; 7; 8; 9]

//as a function
let f lst1 lst2 = [for a in lst1 do for b in lst2 do yield a+b]

Answer 2

另一种可能性是将 List.collect 与 List.map 结合起来：

let l1 = [1;2;3]
let l2 = [4;5;6]

l1 |> List.collect (fun x -> List.map ((+) x) l2) //output: [5; 6; 7; 6; 7; 8; 7; 8; 9]