Qu'est-ce qu'une façon idiomatique d'ajouter des listes dans Haskell?

Question

Supposons que je souhaite ajouter deux listes dans Haskell. Quelle est la manière la plus courante de le faire?

Voici ce que je l'ai fait:

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

Answer 1

Il y a une fonction de bibliothèque zipWith qui combine deux listes en utilisant une fonction fournie. Il fait exactement ce que vous voulez ici et vous obtenez:

addLists = zipWith (+) 

Il utilise (+) pour combiner les éléments des listes données que d'autres arguments.

Answer 2

addLists xs ys = zipWith (+) xs ys 

Answer 3

de style Applicative Functor:

import Control.Applicative 

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

Notez que cela est si laid parce qu'il ya deux façons de faire une liste Applicative Functor. La première (et à mon avis moins utile) est de prendre toutes les combinaisons, et de cette façon est devenu le « standard », donc (+) <$> [1,2] <*> [30,40] est [31,41,32,42]. L'autre façon est de compresser les listes comme nous en avons besoin ici, mais comme vous ne pouvez avoir qu'une seule instance de type par type, nous devons envelopper les listes dans ZipLists, et déplier le résultat en utilisant getZipList.