例子：
addElement (1, 1) [(1, 1)] = [(1,2)]
addElement (2, 2) [(1,1),(2, 2)] = [(1,1),(2, 4)]
我的代碼：
addElement :: (Integer, Integer) -> [(Integer, Integer)] -> [(Integer, Integer)]
addElement (a,b) ((x,y):xs)
| a==x = ((x,y b):xs)
|otherwise = addElement ((a 1), b) xs
我無法讓它適用于串列的其余部分。
uj5u.com熱心網友回復：
您需要對函式進行遞回，并在這種otherwise情況下生成(x,y)2 元組。此外，您應該使用空串列來實作案例：
addElement :: (Eq a, Num b) => (a, b) -> [(a, b)] -> [(a, b)]
addElement _ [] = []
addElement kv@(k1, v1) (kv2@(k2, v2):xs)
| k1 == k2 = ((k2, v1 v2) : addElement kv xs
| otherwise = kv2 : addElement kv xs
您可以使用map僅實作適用于單個元素的邏輯，因此：
addElement :: (Eq a, Num b) => (a, b) -> [(a, b)] -> [(a, b)]
addElement (k, v) = map f
where f kv2@(k2, v2)
| k == k2 = (k2, v v2)
| otherwise = kv2
uj5u.com熱心網友回復：
也可以使用串列推導來完成此操作：
addElem :: (Eq a, Num b) => (a, b) -> [(a, b)] -> [(a, b)]
addElem (x1, x2) lst = [if x1 == y1 then (y1, x2 y2) else y | y@(y1, y2) <- lst]
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/464850.html