Haskell：如何附加到元组列表的列表中？答案

【问题标题】：Haskell: How do I append to a list of list of tuples?Haskell：如何附加到元组列表的列表中？
【发布时间】：2019-02-26 23:49:13
【问题描述】：

抱歉，我刚开始学习 Haskell。我不明白如何将元组附加到每个子列表。

我目前的名单是：

[[("String", "String", 2.0)],[("String", "String", 2.0),("String", "String", 2.0)]]

我想在每个子列表中添加一个元组，所以我的新列表是：

[[("String", "String", 2.0),("String","String",0.0)],[("String", "String", 2.0),("String", "String", 2.0),("String","String",0.0)]]

我正在尝试编写一个函数，但它一直给我一个错误

append :: a -> [a] -> [a]
append i (x:xs) = x : append i xs
append i [] = i : []

然后我做：

map append ("String","String",0.0)

这给了我很多错误，例如不正确的“类型匹配”。我不知道如何在 Haskell 中追加。

【问题讨论】：

我正在打电话所以无法给出正确的答案，但你想要的是map (append ("String", "String", 0.0))

标签： list haskell append tuples

【解决方案1】：

[[("String", "String", 2.0)],[("String", "String", 2.0),("String", "String", 2.0)]] 的类型是Fractional t => [[(String, String, t)]]，或者简化为[[(String, String, Double)]]。

因此，为了将元素附加到每个嵌套列表，我们需要一个函数(String, String, Double) -> [[(String, String, Double)]] -> [[(String, String, Double)]]。换句话说，a -> [[a]] -> [[a]]：

append :: a -> [[a]] -> [[a]]
append x xs = map (\xss -> xss ++ [x]) xs

最后

> append ("String","String",0.0) [[("String", "String", 2.0)],[("String", "String", 2.0),("String", "String", 2.0)]]
[[("String","String",2.0),("String","String",0.0)],[("String","String",2.0),("String","String",2.0),("String","String",0.0)]]

顺便提一下，将元素添加到列表的末尾是 O(n)，因此您可以考虑将其添加到开头：

append' :: a -> [[a]] -> [[a]]
append' x = map ((:) x)

【讨论】：

(x :) 更简单