haskell - 在 attoparsec 中实现 skipWhile1

Question

Attoparsec提供了takeWhile1至少消耗一个字符的函数。

但是，没有类似的skipWhile. 我怎样才能实现这个功能skipWhile1？

注意：这个问题故意显示没有研究工作，因为它是问答式回答的。

Answer 1

另一种可能的实现：

import Control.Applicative

skipWhile1 p = skip p *> skipWhile p

这实际上可能比@Uli 的答案更快，因为takeWhile构建了一个结果字符串，而skipWhile没有。懒惰可能会使它们等效（即takeWhile，如果您不使用它，可能实际上不会构建字符串）；我目前无法测试以验证这一点。

Answer 2

您可以使用Control.Monad.voidwithtakeWhile1来简单地忽略结果：

import Data.Attoparsec.Char8
import Control.Monad (void)

skipWhile1 :: (Char -> Bool) -> Parser ()
skipWhile1 = void . takeWhile1