Каков наилучший способ разделить строку на разделитель функционально?

Ответ 1

Не Data.List.Split.splitOn сделать это?

Ответ 2

splitBy delimiter = foldr f [[]] 
            where f c [email protected](x:xs) | c == delimiter = []:l
                             | otherwise = (c:x):xs

Изменить: не оригинальным автором, а ниже является более (более?) многословная и менее гибкая версия (специально для Char/String), чтобы помочь прояснить, как это работает. Используйте приведенную выше версию, потому что она работает в любом списке типа с экземпляром Eq.

splitBy :: Char -> String -> [String]
splitBy _ "" = [];
splitBy delimiterChar inputString = foldr f [""] inputString
  where f :: Char -> [String] -> [String]
        f currentChar [email protected](partialString:handledStrings)
          | currentChar == delimiterChar = "":allStrings -- start a new partial string at the head of the list of all strings
          | otherwise = (currentChar:partialString):handledStrings -- add the current char to the partial string

-- input:       "a,b,c"
-- fold steps:
-- first step:  'c' -> [""] -> ["c"]
-- second step: ',' -> ["c"] -> ["","c"]
-- third step:  'b' -> ["","c"] -> ["b","c"]
-- fourth step: ',' -> ["b","c"] -> ["","b","c"]
-- fifth step:  'a' -> ["","b","c"] -> ["a","b","c"]

Ответ 3

Это немного взломать, но, черт возьми, он работает.

yourFunc str = map (+1) $ read ("[" ++ str ++ "]")

Вот версия без взлома с помощью unfoldr:

import Data.List
import Control.Arrow(second)

-- break' is like break but removes the
-- delimiter from the rest string
break' d = second (drop 1) . break d

split :: String -> Maybe (String,String)
split [] = Nothing
split xs = Just . break' (==',') $ xs

yourFunc :: String -> [Int]
yourFunc = map ((+1) . read) . unfoldr split

Ответ 4

Просто для удовольствия, вот как вы могли бы создать простой парсер с Parsec:

module Main where

import Control.Applicative hiding (many)
import Text.Parsec
import Text.Parsec.String

line :: Parser [Int]
line = number `sepBy` (char ',' *> spaces)

number = read <$> many digit

Одним из преимуществ является то, что он легко создает парсер, который является гибким в том, что он примет:

*Main Text.Parsec Text.Parsec.Token> :load "/home/mikste/programming/Temp.hs"
[1 of 1] Compiling Main             ( /home/mikste/programming/Temp.hs, interpreted )
Ok, modules loaded: Main.
*Main Text.Parsec Text.Parsec.Token> parse line "" "1, 2, 3"
Right [1,2,3]
*Main Text.Parsec Text.Parsec.Token> parse line "" "10,2703,   5, 3"
Right [10,2703,5,3]
*Main Text.Parsec Text.Parsec.Token> 

Ответ 5

Это приложение ответа HaskellElephant на исходный вопрос с незначительными изменениями

splitByDelimiter :: Char -> String -> [String]
splitByDelimiter = unfoldr . splitSingle

splitSingle :: Char -> String -> Maybe (String,String)
splitSingle _ [] = Nothing
splitSingle delimiter xs =
  let (ys, zs) = break (== delimiter) xs in
  Just (ys, drop 1 zs)

Если функция splitSingle разбивает список на две подстроки с помощью первого разделителя.

Например: "1,2,-5,-23,15" -> Just ("1", "2,-5,-23,15")

Ответ 6

splitBy del str = helper del str []   
    where 
        helper _ [] acc = let acc0 = reverse acc in [acc0] 
        helper del (x:xs) acc   
            | x==del    = let acc0 = reverse acc in acc0 : helper del xs []  
            | otherwise = let acc0 = x : acc     in helper del xs acc0 

Ответ 7

Этот код отлично работает используйте: - разделите "свою строку" [] и замените "," на любой разделитель

split [] t = [t]
split (a:l) t = if a==',' then (t:split l []) else split l (t++[a])

Ответ 8

import qualified Text.Regex as RegExp

myRegexSplit :: String -> String -> [String]
myRegexSplit regExp theString = 
  let result = RegExp.splitRegex (RegExp.mkRegex regExp) theString
  in filter (not . null) result

-- using regex has the advantage of making it easy to use a regular
-- expression instead of only normal strings as delimiters.

-- the splitRegex function tends to return an array with an empty string
-- as the last element. So the filter takes it out

-- how to use in ghci to split a sentence
let timeParts = myRegexSplit " " "I love ponies a lot"