Haskell有一个takeUntil函数吗？

Question

目前我正在使用

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

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

Answer 1

由于您询问标准函数no。但是也没有包含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的头部。