您要做的是将Char转换为String。即使show具有正确的类型（Char -> String），它也会以不同的方式进行转换。例如，show 'a'是"'a'"，而不是"a"。
所以你需要一个函数来把'a'转换成"a"，因为String是Char的列表，你可以通过这样的函数从Char构建一个String。

charToString :: Char -> String
charToString c = [c]

有了它，intercalate ". " $ map charToString initials就给了你"H. B"。
注意，charToString等价于(:[])，所以也可以写成intercalate "." $ map (:[]) initials。

从某种意义上说，intercalate是一个错误的函数，您需要将 * ". " *append到每个首字母（或者更准确地说，对于每个首字母，prepend". "加上一个首字母），而不仅仅是用". "分隔首字母。

> concatMap (: ". ") initials ++ surname
"H. B. Curry"

concatMap将给定函数应用于首字母的每个字符，然后将它们连接成一个字符串，并将姓氏附加到该字符串。
将concatMap分解为单独的步骤，

> map (: ". ") initials
["H. ","B. "]
> concat (map (: ". ") initials)
"H. B. "
> (concat . map (: ". ")) initials
"H. B. "

因为concatMap f = concat . map f，

> concatMap (: ". ") initials
"H. B. "