2

试图获取一个对列表并返回一个 x 值乘以 y 值的对：例如：mult [(x,y);(x,y);(x,y)] 将是 (x x x,y y y) mult [(1,2);((1,2);(1,2)] 将返回 (1,8)

尝试使用 map fst 执行此操作并且当前没有递归我的代码是：

let mult li = 
    match li with map fst li

对f来说相当新#

4

1 回答 1

4

如果我对您的理解正确，您有一个 2 元组数字列表，并且您想返回一个 2 元组，其中第一个元素表示列表中所有第一个元素的乘积，第二个元素同样表示列表中所有第二个元素的乘积。正确的？

最简单的方法可能是这样的：

let mult li = 
    let a,b = List.unzip li
    let product = List.fold (*) 1
    (product a, product b)

据我所知，F# 默认不包含 List.product 高阶函数，因此为了方便起见，我创建了一个。关于这个产品函数需要注意的一点是，如果在一个空列表上调用它会返回 1（因为 1 是它的起始值）。如果您需要替代行为，最好的办法是在列表上进行模式匹配并在普通列表上进行折叠，但在空列表上返回默认值。您可以使用List.reduce (*)，但这会在空列表上引发异常。

使用输入 [(1,2);(1,2);(1,2)] 在 FSI 中对此进行测试，我得到结果 (1,8)。

如果您想使用fstandsnd函数，则可以将其修改为：

let mult li = 
    let a = List.map fst li
    let b = List.map snd li
    let product = List.fold (*) 1
    (product a, product b)

List.unzip 虽然更容易（并且可能更有效，因为我认为它只需要遍历列表一次）

于 2018-11-05T19:59:22.240 回答