Сумма списка списков внутри контейнера?

Question

Похож на my previous question, но теперь у меня есть твист!

Мой тип данных выглядит следующим образом:

data Container = Container [Double] 

и я хочу просуммировать список этих детей, так как:

sum' [Container [1,1,1], Container [2,2,2], Container [3,3,3]] 
> [6,6,6] 

не могу понять, чистый способ сделать это ,

Answer 1

Определение аксессора для вашего типа Container:

content (Container x) = x 

Тогда вы можете сделать это:

sum' = map sum . transpose . map content 

Answer 2

Проще всего сделать было бы отобразить список перед суммированием:

sum' = map (sum . (\ (Container ls) -> ls)) 

Если вы хотите получить другую сумму, вы можете просто заменить функцию sum с чем-то другим.

Answer 3

Это похоже на ответ, который вы получили на ваш другой вопрос, за исключением вы должны принять ваши внутренние списки из своих Container с:

import Data.List 
sum' = map sum . transpose . map (\ (Container cs) -> cs) 

Answer 4

Ну, я думал, что я хотел бы добавить это к ответам вы уже есть: один обычный способ сделать это - предпочесть определения типа записи по сравнению с более простым определением типа продукта, которое вы использовали, поскольку типы записей предоставляют вам функции доступа бесплатно. Таким образом, вы бы определить Container так:

data Container = Container { getContents :: Double } 

Это определяет Container как тип записи с одним полем называется getContents. Это забавное название для поля по сравнению с другими типами, но дело в том, что теперь getContents было определенно как функция, которая извлекает эти поля из Container:

getContents (Container [1, 2, 3]) -- result: [1.0, 2.0, 3.0] 

Учитывая, что у вас есть один и тот же ответ, как Grzegorz дает, но с неявно определенной getContents функции в месте его явно определенной content функции:

sum' = map sum . transpose . map getContents