haskell - 有没有办法在当前的 haskell 平台上使用 Data.Set 中的 findIndex 方法？

Question

我最近开始编写一些需要使用集合的代码。所以我去Hoogle搜索现有的解决方案，我在模块Data.Set中找到了它。 。不幸的是，Hoogle 找到了containers-0.5.3.1 包中包含的Set 的文档。这个版本包含方便的 findIndex 方法，我围绕它规划了我的程序。

但Haskell平台仅附带containers-0.5.0.0，其中findIndex不可用。由于我可能只使用 Haskell 平台附带的库，因此我正在寻找一种方法来包含此函数或自己定义它。直接从 http://hackage.haskell.org/package/containers-0.5.3.1/docs/src/Data-Set.html 复制方法源代码显然没有用。我希望您能帮助我找到解决问题的方法。

非常感谢。

Answer 1

您可以使用splitMember来做到这一点:

lookupIndex :: (Ord a) => a -> Set a -> Maybe Int
lookupIndex x s
   | found      = Just $ size l
   | otherwise  = Nothing
 where (l, found, _) = splitMember x s