Haskell无需导入额外包实现字符串中子串替换的方法请教

核心逻辑说明 #

你遇到的错误本质是类型不匹配：代码中c是单个Char类型，"\Graph"是String（即[Char]）类型，二者无法直接比较。要实现多字符子串的全局替换，只需要实现两个基础辅助函数，全程不需要导入任何额外包，完全基于Prelude自带的基础能力即可完成。

完整可运行代码 #

-- 辅助函数：判断字符串是否以指定前缀开头
startsWith :: String -> String -> Bool
startsWith [] _ = True
startsWith _ [] = False
startsWith (p:ps) (s:ss) = p == s && startsWith ps ss

-- 通用子串替换函数：将原字符串中所有匹配old的子串替换为new
replace :: String -> String -> String -> String
replace old new str
  | null str = ""
  | startsWith old str = new ++ replace old new (drop (length old) str)
  | otherwise = head str : replace old new (tail str)

-- 你的业务处理函数，直接调用替换逻辑即可
treat :: String -> String
treat = replace "\\Graph" "Graphic"

-- 调整后的separation函数，支持匹配\Graph子串
separation :: String -> [String]
separation [] = [""]
separation s@(c:cs)
  | startsWith "\\Graph" s  = "Graphic : " : separation (drop 6 s) -- \Graph共6个字符，匹配后直接跳过
  | c == '}'  = "" : separation cs
  | c == '{'  = "" : separation cs
  | otherwise = let rest = separation cs in (c : head rest) : tail rest

main::IO()
main = do
  -- 原有代码中的拼写错误已修正：texte变量名对应、文件名修正为inputText
  texte <- readFile "inputText"
  print (separation texte)
  print (treat texte)

注意事项 #

• Haskell中字符串字面量的反斜杠是转义字符，要匹配字面的\需要写为\\，因此目标子串在代码中写为"\\Graph"
• 替换逻辑是全局生效的，会自动替换所有出现的目标子串，不需要手动遍历处理
• 若不需要使用命令行参数，可以删掉原有代码中未使用的argv <- getArgs行，若要保留需要导入System.Environment模块，该模块属于标准库不属于额外第三方包

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