Есть ли стандартная функция Haskell, такая как итерация, которая останавливается на Nothing?

Question

Мне интересно, существует ли стандартная функция, которая выполняет итерацию функции, которая возвращает значение (возможно значение) над начальным значением, собирая значения в списке, но заканчивая список, когда он получает значение Nothing. Эта функция может быть реализована, например, так:

iterateMaybe f a = a : iterMaybe (f a) where 
    iterMaybe Nothing = [] 
    iterMaybe (Just a) = a : iterMaybe (f a) 

или немного по-другому, как так:

iterateMaybe' f Nothing = [] 
iterateMaybe' f (Just a) = a : iterateMaybe' f (f a) 

Ни один the functions that Hoogle finds матч.

Answer 1

Это специальный случай unfoldr.

iterateMaybe f = unfoldr (fmap (\s -> (s,s)) . f) 

Разница в список возвращаемый unfoldr не будет включать в себя начальный элемент.