Haskell 交替符号的无限列表

Question

我尝试生成这样的无限列表：

[1,-2,3,-4..]

使用此代码：

[ m  | n <- [1..],m <- [n, -n]]

但是这段代码像这样重复了所有数字：

[1,-1,2,-2..]

所以我不知道该怎么办

Answer 1

您可以将它们分组如下：

[[1, -2], [3, -4],..]

所以我们制作 i 的元组，其中 i 制作两个跳跃，对于这样的 i，我们产生 i 和 -i-1：

[ m  | n <- [1,3..], m <- [n, -n-1]]

然后例如我们可以产生：

Prelude> take 10 [ m  | n <- [1,3..], m <- [n, -n-1]]
[1,-2,3,-4,5,-6,7,-8,9,-10]

或者我们可以写成：

[1, 3..] >>= \i -> [i, -i-1]

我们也可以使用 zipWith:

zipWith (*) [1..] $ cycle [1, -1]

或者迭代函数的解决方案：

zipWith ($) (cycle [id, negate]) [1..]

Answer 2

一种可能性：

> x = concatMap (\i -> [i,-i-1]) [i | i <- [0..], even i]
> take 10 x
[0,-1,2,-3,4,-5,6,-7,8,-9]

Haskell infinite list with alternating signs