在Haskell中添加列表的慣用方法是什么？

Question

假設我想在Haskell中添加兩個列表。 最常用的方法是什么？

這是我做的：

addLists :: (Integral a) => [a] -> [a] -> [a]
addLists xs ys = map add $ zip xs ys
    where add (x, y) = x+y

Answer 1

有一個zipWith庫函數，它通過使用提供的函數組合兩個列表。 它完全符合你的要求，你得到：

addLists = zipWith (+)

這使用(+)組合作為進一步參數給出的列表元素。

Answer 2

適用的Functor風格：

import Control.Applicative

addLists xs ys = getZipList $ (+) <$> ZipList xs <*> ZipList ys

請注意，這是如此丑陋，因為有兩種方法可以使List成為Applicative Functor。 第一種（和恕我直言不太有用）的方式是采取所有組合，這種方式成為“標准”，所以(+) <$> [1,2] <*> [30,40]是[31,41,32,42] 。 另一種方法是在這里按需要壓縮列表，但由於每種類型只能有一個類型類實例，我們必須將列表包裝在ZipLists中，並使用getZipList解包結果。

Answer 3

addLists xs ys = zipWith (+) xs ys