haskell - Haskell 有 takeUntil 函数吗？

Question

目前我正在使用

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

从列表中获取最多为 1 或 89 的元素。但是，结果不包括这些标记值。 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]