list - 标准 Haskell 函数::(a -> Maybe a) -> a -> [a]

Question

我定义了一个函数

maybeToList :: (a -> Maybe a) -> a -> [a]
maybeToList f x = x : maybe [] (maybeToList f) (f x)

这个功能看起来很明显，我不敢相信它不是标准的。 它是否在某个模块中定义(我已经检查过 Data.Maybe)？

Answer 1

您的函数不在标准库中，因为它是 one that is 的特殊形式:

unfoldr      :: (b -> Maybe (a, b)) -> b -> [a]
unfoldr f b  =
  case f b of
   Just (a,new_b) -> a : unfoldr f new_b
   Nothing        -> []

就是说，列表元素与种子值序列相同的情况很常见，仅用 unfoldr 和其他标准函数来编写是笨拙的，所以我不确定为什么它也不在标准库中。