我正在学习 Haskell，我有一个问题，如果给定一个字符串列表的列表，我必须在整个初始列表中找到字符串的总数。我的过程是将整个初始列表转换为一维列表并获取长度，但我似乎可以弄清楚。
到目前为止我所拥有的：
type Word = String
type Line = [Word]
type Page = [Line]
type Doc = [Page]
numWords :: Doc -> Line -> Word -> Int
我需要找出单词的数量，我不确定这是否是解决这类问题的最佳方法，但我无所适从。
任何帮助将不胜感激。 谢谢。
【问题讨论】：
这是一个相当简单的问题。
如果我们看一下类型，就很容易了：
type Word = String
type Line = [String]
type Page = [[String]]
type Doc = [[[String]]]
获取Line的长度并不难：
lenLine x = length x
Page 只是所有内部长度的总和：
lenPage xs = sum $ map lenLine xs
我们可以对Doc使用同样的模式：
lenDoc xs = sum $ map lenPage xs
至于您的最终功能，只需使用所有其他功能：
numWords :: Doc -> Page -> Line -> Int
numWords dc pg ln = lenDoc dc + lenPage pg + lenLine ln
请记住，类型同义词并不意味着类型实际上不同；您可以使用相同的功能。
【讨论】：