拆分字符串，同时保持分隔符Haskell

Question

基本上我试图将String拆分为[[String]]，然后将结果连接回来，但在结果列表中保留分隔符（甚至连续重复）。

喜欢的东西下面的这类作品，但分隔符被碾碎成一个空间，而不是保留了所有三个空间的

unwords . map (\x -> "|" ++ x ++"|") . words $ "foo bar" 
-- "|foo| |bar|" 

理想的情况下，我能得到这样的：

"|foo|| ||bar|" -- or 
"|foo| |bar|" 

我只是我不知道如何保留分隔符，我看到的所有分割函数都将分隔符从结果列表中删除，我可以自己写一个分隔符，但它看起来像是一个标准库中的东西，在这一点上，我希望学习比Basi更多的东西其中包括熟悉更多口语化的做事方式。

我想我正在寻找像一些功能：

splitWithDelim :: Char -> String -> [String] 
splitWithDelim "foo bar" -- ["foo", " ", " ", " ", "bar"] 

或者也许是最好在这里使用正则表达式？

Answer 1

您可以分割的列表，保持使用keepDelimsL和keepDelimsR功能分隔符在Data.List.Split包，像here：

split (keepDelimsL $ oneOf "xyz") "aazbxyzcxd" == ["aa","zb","x","y","zc","xd"]