在 Haskell 中是否有分割字符串的标准方法？
lines 和 words 在空格或换行符上分割效果很好，但肯定有标准的逗号分割方法吗？
我在 Hoogle 上找不到。
具体来说，我正在寻找split "," "my,comma,separated,list" 返回["my","comma","separated","list"] 的东西。
【问题讨论】：
Data.List 甚至Prelude 的未来版本中加入这样的功能。如果代码高尔夫球不可用，它是如此常见和讨厌。
记住你可以查一下 Prelude 函数的定义！
http://www.haskell.org/onlinereport/standard-prelude.html
看那里，words的定义是，
words :: String -> [String]
words s = case dropWhile Char.isSpace s of
"" -> []
s' -> w : words s''
where (w, s'') = break Char.isSpace s'
因此，将其更改为接受谓词的函数：
wordsWhen :: (Char -> Bool) -> String -> [String]
wordsWhen p s = case dropWhile p s of
"" -> []
s' -> w : wordsWhen p s''
where (w, s'') = break p s'
然后用你想要的任何谓词调用它！
main = print $ wordsWhen (==',') "break,this,string,at,commas"
【讨论】：
有一个名为split的包。
cabal install split
像这样使用它：
ghci> import Data.List.Split
ghci> splitOn "," "my,comma,separated,list"
["my","comma","separated","list"]
它带有许多其他功能，用于在匹配的分隔符上进行拆分或具有多个分隔符。
【讨论】：
split 函数来满足所有需求，你真的需要那种包。
split 添加到 cabal 文件中的 build-depends 列表中，例如如果您的项目名为 hello，那么在 hello.cabal 文件中的 executable hello 行下方放置一行类似 `build-depends: base, split` 的行（注意两个空格缩进）。然后使用cabal build 命令构建。参照。 haskell.org/cabal/users-guide/…
如果你使用Data.Text，还有splitOn：
http://hackage.haskell.org/packages/archive/text/0.11.2.0/doc/html/Data-Text.html#v:splitOn
这是在 Haskell 平台中构建的。
例如：
import qualified Data.Text as T
main = print $ T.splitOn (T.pack " ") (T.pack "this is a test")
或：
{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text as T
main = print $ T.splitOn " " "this is a test"
【讨论】：
text 包或安装它。不过属于另一个问题。
在模块Text.Regex（Haskell平台的一部分）中，有一个函数：
splitRegex :: Regex -> String -> [String]
根据正则表达式拆分字符串。 API 可以在Hackage 找到。
【讨论】：
Could not find module ‘Text.Regex’ Perhaps you meant Text.Read (from base-4.10.1.0)
使用Data.List.Split，它使用split：
[me@localhost]$ ghci
Prelude> import Data.List.Split
Prelude Data.List.Split> let l = splitOn "," "1,2,3,4"
Prelude Data.List.Split> :t l
l :: [[Char]]
Prelude Data.List.Split> l
["1","2","3","4"]
Prelude Data.List.Split> let { convert :: [String] -> [Integer]; convert = map read }
Prelude Data.List.Split> let l2 = convert l
Prelude Data.List.Split> :t l2
l2 :: [Integer]
Prelude Data.List.Split> l2
[1,2,3,4]
【讨论】：
试试这个：
import Data.List (unfoldr)
separateBy :: Eq a => a -> [a] -> [[a]]
separateBy chr = unfoldr sep where
sep [] = Nothing
sep l = Just . fmap (drop 1) . break (== chr) $ l
仅适用于单个字符，但应易于扩展。
【讨论】：
在不导入任何内容的情况下，直接用一个字符替换空格，words 的目标分隔符是一个空格。比如：
words [if c == ',' then ' ' else c|c <- "my,comma,separated,list"]
或
words let f ',' = ' '; f c = c in map f "my,comma,separated,list"
你可以把它变成一个带参数的函数。您可以消除参数 character-to-match 我的匹配很多，如：
[if elem c ";,.:-+@!$#?" then ' ' else c|c <-"my,comma;separated!list"]
【讨论】：
"my,comma separated,list"，它将看到 4 个部分而不是预期的 3 个。
words 确实；试试words [if c == ',' then ' ' else c|c <- "my, comma, separated, list "]
split :: Eq a => a -> [a] -> [[a]]
split d [] = []
split d s = x : split d (drop 1 y) where (x,y) = span (/= d) s
例如
split ';' "a;bb;ccc;;d"
> ["a","bb","ccc","","d"]
将删除单个尾随分隔符：
split ';' "a;bb;ccc;;d;"
> ["a","bb","ccc","","d"]
【讨论】：
我昨天开始学习 Haskell，如果我错了，请纠正我，但是：
split :: Eq a => a -> [a] -> [[a]]
split x y = func x y [[]]
where
func x [] z = reverse $ map (reverse) z
func x (y:ys) (z:zs) = if y==x then
func x ys ([]:(z:zs))
else
func x ys ((y:z):zs)
给予：
*Main> split ' ' "this is a test"
["this","is","a","test"]
也许你想要
*Main> splitWithStr " and " "this and is and a and test"
["this","is","a","test"]
应该是：
splitWithStr :: Eq a => [a] -> [a] -> [[a]]
splitWithStr x y = func x y [[]]
where
func x [] z = reverse $ map (reverse) z
func x (y:ys) (z:zs) = if (take (length x) (y:ys)) == x then
func x (drop (length x) (y:ys)) ([]:(z:zs))
else
func x ys ((y:z):zs)
【讨论】：
split，被具有完善库的语言所宠坏。不过还是谢谢。
我觉得这更容易理解：
split :: Char -> String -> [String]
split c xs = case break (==c) xs of
(ls, "") -> [ls]
(ls, x:rs) -> ls : split c rs
【讨论】：
我不知道如何对史蒂夫的回答添加评论，但我想推荐
GHC libraries documentation,
并在那里特别是
Sublist functions in Data.List
这比阅读简单的 Haskell 报告要好得多。
一般来说，带有规则的折叠规则也可以解决这个问题。
【讨论】：
ghci 中的示例：
> import qualified Text.Regex as R
> R.splitRegex (R.mkRegex "x") "2x3x777"
> ["2","3","777"]
【讨论】：
ghci 中运行第一行？
除了答案中给出的高效和预先构建的函数之外，我将添加自己的函数，这些函数只是我编写的 Haskell 函数库的一部分，用于在自己的时间学习语言：
-- Correct but inefficient implementation
wordsBy :: String -> Char -> [String]
wordsBy s c = reverse (go s []) where
go s' ws = case (dropWhile (\c' -> c' == c) s') of
"" -> ws
rem -> go ((dropWhile (\c' -> c' /= c) rem)) ((takeWhile (\c' -> c' /= c) rem) : ws)
-- Breaks up by predicate function to allow for more complex conditions (\c -> c == ',' || c == ';')
wordsByF :: String -> (Char -> Bool) -> [String]
wordsByF s f = reverse (go s []) where
go s' ws = case ((dropWhile (\c' -> f c')) s') of
"" -> ws
rem -> go ((dropWhile (\c' -> (f c') == False)) rem) (((takeWhile (\c' -> (f c') == False)) rem) : ws)
这些解决方案至少是尾递归的，因此它们不会导致堆栈溢出。
【讨论】：
我迟到了，但如果您正在寻找一个不依赖任何臃肿包的简单解决方案，我想在这里为感兴趣的人添加它：
split :: String -> String -> [String]
split _ "" = []
split delim str =
split' "" str []
where
dl = length delim
split' :: String -> String -> [String] -> [String]
split' h t f
| dl > length t = f ++ [h ++ t]
| delim == take dl t = split' "" (drop dl t) (f ++ [h])
| otherwise = split' (h ++ take 1 t) (drop 1 t) f
【讨论】：
split 软件包，这也不是标准方式。安装split 包还会包含一堆冗余功能。你只要求一个split 函数，我把它给了你，没有更多。