將一個字符串切割成Haskell中的列表？

Question

是有可能減少一個字符串如

"one , Two" 

到列表

["one", "two"] 

或只是

"one", "two" 

感謝

Answer 1

未經檢驗的，用秒差距。 Theres可能也是一個正則表達式分隔符。

firstElement :: Parser String 
firstElement = many $ noneOf ' ' 

otherElement :: Parser String 
otherElement = do many $ char ' ' 
        char ',' 
        many $ char ' ' 
        firstElement 

elements :: Parser [String] 
elements = liftM2 (:) firstElement (many otherElement) 

parseElements :: String -> [String] 
parseElements = parse elements "(unknown)" 

這將是很好清理otherElement不知何故，類似我如何管理使用liftM2崩潰elements。

Answer 2

普通的舊列表操作就足夠了這裏，

import Data.Char 

> [ w | w <- words "one , Two", all isAlpha w ] 
["one","Two"] 

又名

> filter (all isAlpha) . words $ "one , Two" 
["one","Two"] 

---

名單黑客，分析和設計

有力量和體重的比例在文字處理中。最簡單的，基於列表的解決方案，比如上面的解決方案，提供非常小的語法噪聲，以獲得快速結果（與shell腳本中的快速文本處理相同）。

列表操作可能會相當複雜，您可能會考慮廣義split庫，用於對任意文本分割清單，

> splitOn " , " "one , Two" 
["one","Two"] 

對於較硬的問題，或代碼，不容易被扔掉，更強大的技術意義。特別是，您可以通過解析器組合器將問題描述爲語法來避免脆弱的模式匹配，例如parsec或uu-parsinglib。通過解析器描述的字符串處理往往會導致隨着時間的推移更強大的代碼，因爲隨着需求的變化，修改以combinator樣式編寫的解析器相對容易。

有關正則表達式的注意事項：列表匹配和正則表達式在易用性和（非）安全性方面大致相當，因此就本討論而言，可以用「正則表達式」替換「列表拆分」。如果代碼的使用壽命很長，解析幾乎總是正確的方法。

Answer 3

有功能不同的策略來分割列表（如字符串，這僅僅是一個字符的列表）整體模塊：Data.List.Split

利用這一點，你可以做

import Data.List.Split 

> splitOn " , " "one , Two" 
["one","Two"] 

Answer 4

如果你不想安裝split package（see Frerich Raabe's answer），這裏的splitOn功能的實現，對依賴重量輕：

import Data.List 

splitOn :: Eq a => [a] -> [a] -> [[a]] 
splitOn [] _ = error "splitOn: empty delimiter" 
splitOn delim xs = loop xs 
    where loop [] = [[]] 
      loop xs | delim `isPrefixOf` xs = [] : splitOn delim (drop len xs) 
      loop (x:xs) = let (y:ys) = splitOn delim xs 
         in (x:y) : ys 
      len = length delim