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 ++)

如果您喜欢过度概括，可以使用以下方法为一般Semigroup定义

cycle xs = fix (xs <>)

尽管对于大多数半小组来说，这是有分歧的。

如果您是狂热的狂热分子，可以将其翻译为

cycle xs = fix ((<>) xs)

然后您可以看到的是

cycle = fix . (<>)