¿Cuál es una forma idiomática de agregar listas en Haskell?

Question

Supongamos que quiero agregar dos listas en Haskell. ¿Cuál es la forma más usual de hacer esto?

Aquí es lo que hice:

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

Answer 1

hay una función zipWith biblioteca que combina dos listas mediante el uso de una función que se suministra. Hace exactamente lo que usted quiere aquí y se obtiene:

addLists = zipWith (+) 

Este utiliza (+) de combinar los elementos de las listas dados como argumentos adicionales.

Answer 2

addLists xs ys = zipWith (+) xs ys 

Answer 3

estilo aplicativo Functor:

import Control.Applicative 

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

Tenga en cuenta que esto es tan feo, porque hay dos maneras de hacer una lista de Aplicativo Functor. La primera (y en mi humilde opinión menos útil) es tomar todas las combinaciones, y de esa manera se convirtió en el "estándar", por lo que (+) <$> [1,2] <*> [30,40] es [31,41,32,42]. La otra forma es comprimir las listas como necesitamos aquí, pero como solo puede tener una instancia de clase de tipo por tipo, debemos envolver las listas en ZipLists y desenvolver el resultado usando getZipList.