haskell - 如何在haskell中使用以下方法获得无限的权力列表

Question

我一直在尝试做一个无限的幂列表，就像我在下面所做的一样，以获得斐波那契数和阶乘的列表。

fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

facs = 1 : zipWith (*) [1 ..] facs

谢谢

Answer 1

生成数字的幂就像使用“迭代”一样简单:

iterate (*2) 1

要查找特定的功率(而不是列出它们)，使用 (^) 会更快。 .要查看大乘法的各个步骤，您可以使用 scanl :

scanl (*) 1 [2, 3, 5, 7]

最后生成所有正方形的列表，这是我推荐的方法:

fix (\more r s -> s : more (r + 1) (s + 2*r + 1)) 0 0

或者如果您对 fix 感到不舒服这里有两个替代版本:

unfoldr (\(r, s) -> Just (s, (r + 1, s + 2*r + 1))) (0, 0)

map snd . iterate (\(r, s) -> (r + 1, s + 2*r + 1)) $ (0, 0)