Haskell Списки в списках

Question

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

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

sumI :: [Int] -> Int 
sumI [] = 0 
sumI (x:xs) = x + sumI xs 

mapQ :: [[Int]] -> Int 
mapQ [] = [] 
mapQ xs = [product (sumI x) | x <- xs] 

Answer 1

Я думаю, вы почти там. Заменить последнюю строку на

mapQ xs = product [ sumI x | x <- xs] 

Answer 2

Как вопрос домашней работы - вот несколько советов.

1. Вы можете использовать карту для применения функции к каждому члену списка. Поскольку список составлен из списков, подходящей функцией может быть sum

2. Вы хотите превратить список в один номер. Я имею в виду, что у вас есть список сумм, которые вам нужны, и вы хотите их умножить, чтобы получить один номер. Это довольно распространено и обрабатывается одной из многих функций fold.

Дайте это попробовать.