Haskell + разделение

Question

Im способен суммировать Zth элемента всех кортежей, но по какой-то странной причине я получаю только 1 после деления моего результата на 2.

averageYear :: [(String, String, Int)] -> Int 
averageYear [] = 0 
averageYear ((x,y,z):xs) = (z + (averageYear xs)) `div` (length xs) 

Спасибо !!

Answer 1

Математика совершенно неверна.

averageYear [(_, _, 2010)] = (2010 + averageYear []) `div` 2 
          = (2010 + 0) `div` 2 
          = 2010 `div` 2 
          = 1005 

Чтобы вычислить среднее значение, вы должны разделить сумму на количество элементов.

average :: [Int] -> Int 
average xs = sum xs `div` length xs 

averageYear :: [(String, String, Int)] -> Int 
averageYear = average . map (\(_, _, year) -> year) 

Answer 2

@Dietrich Эпп Длина хз равна нулю, а не два в вашем примере.

averageYear ((x,y,z):xs) = (z + (averageYear xs)) `div` (length xs) 

Если xs пусто, тогда длина xs равна нулю, и вы делите на ноль.