Cách thành ngữ để thêm danh sách trong Haskell là gì?

Question

Giả sử tôi muốn thêm hai danh sách trong Haskell. Cách thông thường nhất để làm điều này là gì?

Dưới đây là những gì tôi đã làm:

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

Answer 1

Có một chức năng zipWith thư viện kết hợp hai danh sách bằng cách sử dụng một chức năng cung cấp. Nó thực hiện chính xác những gì bạn muốn ở đây và bạn nhận được:

addLists = zipWith (+) 

Sử dụng (+) để kết hợp các yếu tố của danh sách.

Answer 2

addLists xs ys = zipWith (+) xs ys 

Answer 3

applicative functor phong cách:

import Control.Applicative 

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

Lưu ý rằng đây là quá xấu xí vì có hai cách để kiếm Danh sách một applicative functor. Cách đầu tiên (và IMHO ít hữu ích hơn) là lấy tất cả sự kết hợp và cách đó trở thành "chuẩn", vì vậy (+) <$> [1,2] <*> [30,40] là [31,41,32,42]. Một cách khác là nén các danh sách như chúng ta cần ở đây, nhưng vì bạn chỉ có thể có một cá thể kiểu lớp cho mỗi kiểu, chúng ta phải bọc các danh sách trong ZipLists và để bỏ kết quả bằng cách sử dụng getZipList.