如何在未转义的空白处拆分字符串？

Question

我想像这样在非转义空格处拆分我的字符串：

let s = "number\\ 1 number\\ 2 number\\ 3"


["number\\ 1", "number\\ 2", "number\\ 3"]

or even better

["number 1", "number 2", "number 3"]

我该怎么做？

尝试 1：

let s = "number\\ 1 number\\ 2 number\\ 3"

splitWhitespace :: String -> [String]
splitWhitespcae s = splitOn " " s
-- returns ["number\\","1","number\\","2","number\\","3"]

concatBackslash :: [String] -> [String]
concatBackslash [] = []
concatBackslash (x : xx : xs) = case init x of
    "\\" -> (x ++ xx) : concatBackslash xs
    _ -> x : xx : concatBackslash x

但由于某种原因，这会返回相同的列表。

尝试 2：

splitOnWhitespace :: String -> [String]
splitOnWhitespace s = splitOn " " s

concatBackslash :: [String] -> [String]
concatBackslash [] = []
concatBackslash [x, xs] = case last x of
    '\\' -> [(init x) ++ xs]
    _ -> [x, xs]
concatBackslash (x : xx : xs) = case last x of
    '\\' -> concatBackslash (((init x) ++ xx) : xs)
    _ -> x: concatBackslash (xx : xs)

这是在@leftaroundabout 的帮助下完成的，但我确实没有空格。

> let s = "number\\ 1 number\\ 2 number\\ 3"
> concatBackslash $ splitOnWhitespace s
["number1","number2","number3"]

Answer 1

两个问题：

• init 为您提供所有除了字符串中的最后一个字符。但是当您尝试与"\\" 匹配时，那将是确实最后一个字符。因此，您实际上应该在 case 语句中使用 last。
• 但是，当++将该元素与下一个元素一起使用时，您确实需要init。在这种情况下，您不想保留结尾的 \，而是保留在它之前。