Haskell有一个takeUntil函数吗？

Question

目前我正在使用

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

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

Answer 1

既然你问的是标准功能,没有.但是也没有包含a的包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。