haskell - 自生成列表，其中每个元素都将一些元素附加到末尾

Question

我正在寻找一种方法来做这样的事情。
假设我们从 1 开始。对于每个奇数，我们将其 +5 添加到列表的末尾。对于每个偶数，我们将其添加 +3 并将其 +7 添加到列表的末尾。列表看起来像这样

[1, 6, 9, 13, 14, 18, 17, 21, 21, 25,...]

我将如何在 Haskell 中做这样的事情？

我知道您可以制作一个列表，其中每个元素都依赖于前一个元素，但是当多个元素依赖于同一个元素时，您如何做到这一点，并且您不知道哪个组取决于哪个组，除非您开始从一开始就？

Answer 1

以下解决方案使用自引用惰性列表，因此不存在@GaneshSittampalam 解决方案的线性时间问题:

xs = 1 : concatMap extras xs where
  extras x
    | odd x     = [x+5]
    | otherwise = [x+3,x+7]