使用预定义函数的haskell中的无限列表

Question

我是 Haskell 的初学者，我正在尝试制作一个简单的程序，它需要一个列表，例如 [-3,8] 并生成无限列表：[-3,8,-3,8,-3,8,...]

感谢 Haskell 的惰性计算，我编写了一个非常简单的程序来计算它：

period :: [a]->[a]
period p = p ++ period p

我想知道是否存在使用高阶函数（迭代、映射、...）的更简单的解决方案

Answer 1

一般来说，查找列表函数的第一个位置是Data.List。在那里你会发现

cycle :: [a] -> [a]

这正是你想要的。但是，它的定义略有不同，以便制作循环链表而不是无限链表。类似的东西

cycle xs = ys where ys = xs ++ ys

这样可以避免大量不必要的内存分配。你可以使用Data.Function.fix来表达这个定义：

cycle xs = fix (xs ++)

如果你喜欢过度概括，你可以为一般的Semigroups 定义这个使用

cycle xs = fix (xs <>)

尽管这对于大多数半群来说会有所不同。

如果你是一个无积分的狂热者，你可以把它翻译成

cycle xs = fix ((<>) xs)

然后你可以看到是

cycle = fix . (<>)