Clojure 中的重复向量

Question

我是 Clojure 新手。我正在尝试获取纸牌套装向量的两份副本。我能想到的非干方式是

(def suits [:clubs :diamonds :hearts :spades])
(def two-times (concat suits suits))

必须有一个更实用的方法方式（即使需要更多字符:-)）。如果我想要N次怎么办？有什么建议吗？

我尝试的所有事情，例如

(replicate 2 suits)

产生两个独立向量的结果：

([:clubs :diamonds :hearts :spades] [:clubs :diamonds :hearts :spades])

如何“展平”结构？

Answer 1

concat 为您提供了一个惰性序列。如果您想最终得到一个（非惰性）向量：

user> (into suits suits)
[:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades]
user> (reduce into (replicate 2 suits))
[:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades]

根据您是通过索引大量访问它还是对其进行迭代，向量或 seq 可能更合适。

如果您想要无限（惰性）的重复元素流，也总是有循环：

user> (take 9 (cycle suits))
(:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades :clubs)

Answer 2

对 REPL 的一些实验让我找到了这个解决方案：

user=> (def suits [:clubs :diamonds :hearts :spades])
#'user/suits
user=> suits
[:clubs :diamonds :hearts :spades]    
user=> (reduce concat (replicate 2 suits))
(:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades)

Answer 3

（未经测试！）

(apply concat (repeat 2 suits))

希望能达到目的。

concat 当然会连接 2 个列表； apply 可用于将给定函数偷运到现有列表的头部位置以进行评估。

Answer 4

(take (* 2 (count suits)) (cycle suits))