我一直在尝试做一个无限的幂列表，就像我在下面做的一样，以获得斐波那契数和阶乘的列表。
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
facs = 1 : zipWith (*) [1 ..] facs
谢谢
问问题
2690 次
5 回答
7
生成数字的幂就像使用“迭代”一样简单：
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)
于 2012-11-18T17:26:46.627 回答
4
为了提高可读性，您还可以使用map：
2的连续幂列表：
λ> map (2^) [0..10]
[1,2,4,8,16,32,64,128,256,512,1024]
连续方块：
λ> map (^2) [0..10]
[0,1,4,9,16,25,36,49,64,81,100]
于 2016-08-20T07:37:56.317 回答
3
我认为您可以仅通过列表理解来定义无限的正方形序列：
powers = [ ii*ii | ii <- [1 ..]]
take 10 powers
=> [1,4,9,16,25,36,49,64,81,100]
编辑：有人解释说你是2的幂，这也可以通过列表理解来完成：
powersOf2 = [ 2^ii | ii <- [0 ..]]
take 10 powersOf2
=> [1,2,4,8,16,32,64,128,256,512]
您可以将此推断为任何给定基础的生成器函数：
powersOfN nn = [ nn^ii | ii <- [0 ..]]
take 10 (powersOfN 3)
=> [1,3,9,27,81,243,729,2187,6561,19683]
take 10 (powersOfN 17)
=> [1,17,289,4913,83521,1419857,24137569,410338673,6975757441,118587876497]
于 2012-11-18T16:56:18.913 回答
2
powers n = 1 : map (n*) (powers n)
于 2012-11-18T17:16:10.477 回答
0
如果您想要zipWith的无限幂 N 列表，这可能是一种简单的方法：
powersOfN :: [Integer]
powersOfN
= zipWith (^) [N,N..] [0,1..]
以下是 2 的幂的示例：
Prelude> zipWith (^) [2,2..] [0,1..]
=>[1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,65536,131072,262144,524288,1048576,2097152,4194304,8388608,16777216,33554432,67108864,134217728..]
于 2020-05-26T08:26:57.733 回答