clojure - 如何在Clojure中制作一个无限的重复序列？

Question

我想获取一个序列或向量，并为其创建一个无限的，循环的，懒惰的版本。这是我尝试的:

(def test-seq '(1 2 3))
(take 5 (repeat test-seq))

我得到了

((1 2 3) (1 2 3) (1 2 3) (1 2 3) (1 2 3))

当我想要的是

(1 2 3 1 2)

我知道这有用

(take 5 (flatten (repeat test-seq)))

但这似乎有点让人不满意和松弛。我假设重新构造一个序列序列是很昂贵的，但是我很可能是错的:)

Answer 1

您正在寻找cycle:

(take 5 (cycle '(1 2 3))) ;; => (1 2 3 1 2)