Суммирование соответствующие пары из двух списков в кортеже - в Haskell

Question

У меня есть кортеж, содержащий два списка чисел - ([1,2,3,4], [5,6,7,8])

Мне нужно суммировать соответствующие пары чисел из каждого списка. т.е. (1 + 5), (2 + 6) и т. д. Вывод списка, т. е. [6,8,10,12]. Он также должен работать для любого количества элементов в списках (2 списка из 5, 2 списка из 6 и т. Д.).

Я пытаюсь использовать функцию, используя «map sum. Transpose», но, похоже, не может получить правильные типы (как внутри кортежа). Я нашел фрагмент кода, который работает для списка списков, но не знаю, как сделать то же самое для кортежей списков (возможно ли это?). Когда я пытаюсь изменить типы «a» или использовать компиляцию Int I для ошибок типа-несоответствия.

tupSums :: Num a => [[a]] -> [a] 
tupSums = map sum . transpose 

Я довольно новый для использования Haskell, так что я не совсем понимаю, ошибок я получаю, извините, если вопрос кажется глупым.

Answer 1

Это хороший кандидат для zipWith, который принимает два списка и объединяет соответствующие элементы в списке с использованием конкретного оператора. Следующие должны работать:

tupSums :: Num a => ([a],[a]) -> [a] 
tupSums = uncurry $ zipWith (+) 

zipWith (+) вычисляет функцию, которая принимает два аргумента, причем каждый из них списки, и возвращает список попарных сумм. uncurry выполняет функцию двух аргументов и превращает ее в функцию, которая принимает один кортеж. Итак, uncurry $ zipWith (+) оценивает функцию, которая берет кортеж списков и возвращает список с попарной суммой.