如何使用map将字符串中每个单词的首字母转换为大写？

你的代码有两个核心问题，导致无法正常运行：

• 模式匹配错误：字符串是[Char]类型，filter会逐个取出单个Char元素传给判断函数，但你用了(x:sx:xs)这个模式——这是用来匹配长度≥2的列表的，根本没法匹配单个字符，运行时直接会触发模式匹配失败的异常。
• 逻辑思路偏差：map和filter都是无状态地逐个处理元素，没办法同时获取当前字符和它下一个字符的上下文。你想判断“当前是空格且下一个是小写字母”，但filter只能看到当前元素，拿不到下一个元素的信息，这个逻辑从根上就走不通。

如果非要用map来实现，得先给每个字符带上“前一个字符是否是空格”的状态，这里可以结合zip或scanl传递状态，再用map处理：

先导入必要的模块：

import Data.Char (isSpace, toUpper, toLower)

方案一：用zip关联前后字符 #

upperFirst :: String -> String
upperFirst [] = []
upperFirst (c:cs) = toUpper c : map processChar (zip (c:cs) cs)
  where
    processChar (prev, curr)
      | isSpace prev = toUpper curr
      | otherwise = toLower curr

方案二：用scanl跟踪状态 #

upperFirst :: String -> String
upperFirst s = zipWith processChar (True : map isSpace s) s
  where
    processChar shouldUpper c
      | shouldUpper = toUpper c
      | otherwise = toLower c

逻辑说明：

1. 第一个字符强制大写，所以给它标记True（需要大写）
2. 后续每个字符的标记由前一个字符是否为空格决定——如果前一个是空格，当前字符转大写，否则转小写（若想保留原非首字母的大小写，可去掉toLower）

用你的示例字符串测试：

upperFirst "Hello what a nice day" -- 输出 "Hello What A Nice Day"

内容的提问来源于stack exchange，提问作者zeppal