Как реализовать функцию обрезки с использованием Parsec в haskell?

Question

Я изучаю Parsec и хочу попрактиковаться в реализации функции trim. Вот мой код:

module Trim where 
import Text.ParserCombinators.Parsec hiding(spaces) 
trim = reverse.trimFront.reverse.trimFront 
trimFront :: String->String 
trimFront = readExpr trimParser 
readExpr :: Parser String->String->String 
readExpr parser input = case parse parser "trim" input of 
          Left err -> error $ show err 
          Right val -> val 
spaces = many space 
trimParser :: Parser String 
trimParser = spaces >> many anyChar 

мой вопрос, как я мог бы реализовать trim в функции trimParser непосредственно, без необходимости реализовывать trimFront первый?

Answer 1

Чтобы обрезать пробелы с обеих сторон строки:

trim :: String -> String 
trim = dropWhileEnd isSpace . dropWhile isSpace 

Заметим, что вы можете быть лучше использовать следующую реализацию dropWhileEnd вместо одного из Data.List, в зависимости от ситуации:

dropWhileEnd :: (a -> Bool) -> [a] -> [a] 
dropWhileEnd p = foldr 
    (\x xs -> if null xs && p x then [] else x : xs) []