哈斯克尔：如何数词

Question

countWords ["friend","she","she"] 
 >[("friend",1),("she",2)

Prelude Data.List> countWords xs = map(\w -> (head w, length w)) 
 $group $ sort $ words xs
Prelude Data.List> countWords ["hello", "hello", "world"]

：101：22：ERROR：•在表达式“count words”的第一个参数中的“hello”中，即表达式:countWords[“hello”,“hello”,“world”]中的“[”hello“,”hello“,”world“]”中，无法将预期类型“Char”与实际类型“[Char]”匹配•

：101：31：error：•在表达式“count words”的第一个参数中的“world”中，即表达式:countWords[“hello”,“hello”,“world”]中的“[”hello“,”hello“,”world“]”中，无法将预期的类型“Char”与实际类型“[Char]”匹配•

谢谢。

Answer 1

正如@chi所说-words::string->[String]，因此可以将函数的输入类型更改为一个由空白分隔的单词字符串，或者省略words部分，即。

countWords :: [String] -> [(String,Int)]
countWords xs = map (\w -> (head w, length w)) $ group $ sort xs

下面的示例用法：

Prelude Data.List> countWords ["hello", "hello", "world"]
> [("hello",2),("world",1)]

或

countWords :: String -> [(String,Int)]
countWords xs = map (\w -> (head w, length w)) $ group $ sort $ words xs

Prelude Data.List> countWords "hello hello world"
> [("hello",2),("world",1)]