Haskell有一个takeUntil函数吗？

Question

目前我正在使用

takeWhile (\x -> x /= 1 && x /= 89) l

从列表中获取元素到1或89.但是，结果不包括这些sentinel值。 Haskell是否有一个标准函数在takeWhile上提供这种变体，包括结果中的takeWhile ？ 到目前为止，我对Hoogle的搜索一直没有用。

Answer 1

既然你问的是标准功能， 没有 。 但是也没有包含takeWhileInclusive的包，但这很简单：

takeWhileInclusive :: (a -> Bool) -> [a] -> [a]
takeWhileInclusive _ [] = []
takeWhileInclusive p (x:xs) = x : if p x then takeWhileInclusive p xs
                                         else []

您需要做的唯一事情是获取值，无论谓词是否返回True并且仅使用谓词作为延续因子：

*Main> takeWhileInclusive  (\x -> x /= 20) [10..]
[10,11,12,13,14,15,16,17,18,19,20]

Answer 2

span你想要的？

matching, rest = span (\x -> x /= 1 && x /= 89) l

然后看看rest的头。