在clojure中懒洋洋地构建

Question

我已经开始学习clojure，但是我无法绕过某些概念。 例如，我想在这里做的是采取这个函数并转换它，以便它懒惰地调用get-origlabels。

(defn get-all-origlabels []
    (set (flatten (map get-origlabels (range *song-count*)))))

我的第一次尝试使用递归但是炸毁了堆栈（ 歌曲数量大约是10,000）。 我无法弄清楚如何使用尾递归来做到这一点。

get-origlabels每次调用时都会返回一个集合，但值通常会在调用之间重复。 get-origlabels函数实际上做的是读取一个文件（每个值的一个不同的文件，从0到song-count -1）并将一个存储在其中的单词返回到一个集合中。

任何指针将不胜感激！

谢谢！ -Philip

Answer 1

您可以使用mapcat获得所需内容。 我相信把它放到一个实际的Clojure集合中会去除它，因为事实证明(take 10 (set (iterate inc 0)))尝试10之前尝试实现整个集合。

(distinct (mapcat get-origlabels (range *song-count*)))

这会给你一个懒惰的序列。 您可以通过执行类似的操作来验证，从无限序列开始：

(->> (iterate inc 0)
     (mapcat vector)
     (distinct)
     (take 10))

你最终会得到一个seq，而不是一套，但因为听起来你真的想在这里懒惰，我觉得这是最好的。

Answer 2

这可能具有更好的堆栈行为

(defn get-all-origlabels []
    (reduce (fn (s x) (union s (get-origlabels x))) ${} (range *song-count*)))

Answer 3

我可能会使用类似的东西：

(into #{} (mapcat get-origlabels (range *song-count*)))

通常，在构造Clojure数据结构时，“into”非常有用。 我有一个传送带（一个序列）的心理图像，将一堆随机物体放入一个大桶（目标集合）。