输出自定义数据类型列表的内容

我有一个自定义数据类型Movie = String Int [(String,Int)]（电影名称年份 [（粉丝，评分）] 并想做几件事：

首先，我想创建一个函数，对元组列表中的整数进行平均并仅输出该数字。到目前为止我有这个不完整的功能：

avgRating :: [DataType] -> Int avgRating [(Movie a b [(fan,rating)])] = sumRatings / (length [<mylist>])

这里我需要一个函数 sumRatings 来递归列表并对所有评级求和，但我不知道从哪里开始。

我在这里遇到的另一个问题是我不确定该把什么放在哪里<mylist>就像我通常会给列表一个变量名称，然后在那里使用它一样，但由于我已将列表拆分以定义其他变量，所以我无法命名它。

我希望这是有道理的，谢谢。

我猜你的数据结构定义为

data Movie = Movie String Int [(String, Int)]

虽然这可行，但当您有这么多字段时，使用起来可能会有点麻烦。相反，您可以利用类型别名并将语法记录为

type Name = String
type Year = Int
type Rating = Int

data Movie = Movie
    { mName :: Name
    , mYear :: Year
    , mRatings :: [(Name, Rating)]
    } deriving (Eq, Show)

现在事情变得更加明确并且更容易使用。这mName, mYear, and mRatings函数将需要一个Movie并从中返回相应的字段。你的Movie构造函数仍然以相同的方式工作，因此它不会破坏现有代码。

要计算评分的平均值，您确实需要一个函数来提取电影的所有评分并将它们聚合到一个列表中：

ratings :: Movie -> [Rating]
ratings mov = map snd $ mRatings mov

那么你只需要一个average功能。这会有点不同，因为你无法计算平均值Int直接，你必须转换为浮点类型：

average :: [Rating] -> Float   -- Double precision isn't really needed here
average rs = fromIntegral (sum rs) / fromIntegral (length rs)

The fromIntegral函数转换一个Int to a Float（实际的类型签名更通用一些）。由于两者sum of Ints is an Int和length列表的永远是一个Int，您需要将两者都转换。

现在您可以将它们组合成一个函数：

movieAvgRating :: Movie -> Float
movieAvgRating = average . ratings

现在，如果您需要计算几部电影的平均评分，您可以应用ratings对于每个人，将它们汇总到一个评级列表中，然后调用average关于这一点。我建议看看concatMap功能。你会想要创建一个像这样的函数

moviesAvgRating :: [Movie] -> Float
moviesAvgRating movs = average $ ???