string - 在 String Haskell 中的每个标点符号后插入空格

Question

我有这个函数来检查一个字符是否是这些标点符号之一。

checkpunctuation:: Char -> Bool
checkpunctuationc = c `elem` ['.', ',', '?', '!', ':', ';', '(', ')']

我必须编写另一个函数，在每个标点符号后添加一个空格

format :: String -> String

我知道如何在给定数量的字符后添加空格，但不知道如何在特定字符后添加。

Answer 1

简单的递归选项:

format :: String -> String
format [] = []
format (x:xs) | checkpuntuationc x = x : ' ' : format xs
              | otherwise          = x : format xs