列出整数的平均值

Question

我是 Haskell 和 Stackoverflow 的新手，我正在尝试自学 Haskell 编程，我正在从我下载的一本书中做一系列练习，想知道你们是否可以在这里帮助我。

我正在尝试编写一个名为 avgPub 的函数，它返回一系列书籍所有出版年的平均值。函数参数是：avgPub :: [(String, String, Int)] -> Int。输入/输出的一个例子是，

> avgPub [("publisher", "book", 1920), ("publisher1", "book1", 1989), ("publisher2", "book2", 1920)]
1943

昨天，我学习了 div、sum 和 map，但我不确定如何将它们结合在一起解决这个问题（正如练习所暗示的那样）。我认为要找到 Ints 列表的平均值，您可以使用 list (x:xs) = (sum (x:xs))divlength，但我们处理的不仅仅是 Ints，因此这行不通。

我无法弄清楚如何将它们联系在一起。

Answer 1

year' :: [(String, String, Int)] -> Int 让您走在正确的轨道上。您想以某种方式从所有记录中提取年份字段，以便对它们进行平均。

最简单的方法是编写一个函数来获取单个记录并提取年份。 IE。像这样：

year :: (String, String, Int) -> Int
year (_, _, i) = i

（注意第一个参数不是列表）

然后您可以创建另一个函数years，从记录列表中获取Ints 的列表：

years :: [(String, String, Int)] -> [Int]
years xs = map year xs

那么你需要做的就是把它和计算Ints列表平均值的代码放在一起：

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

把它绑在一起：

avgPub books = average (years books)

Answer 2

提示：

year' :: [(String, String, Int)] -> [Int]
year' = map (\(_,_,i) -> i)

哦，如果你发现一些有用的东西，把它放在 https://codereview.stackexchange.com/ 上，就像你说你是 Haskell 的新手一样。

Answer 3

对于“将所有东西捆绑在一起”部分，作为初学者，您可以使用以下样式编写代码：

avgPub books = result where
    result = average yearlist
    yearlist = map year' books

一段时间后，您会将其缩短为

avgPub = average . map year'