foreach - 嵌套递增 foreach 循环

Question

获得类似东西的惯用方法是什么？

((fn [coll] (function-body)) [:a :b :c :d]) 
-> [[:a :b][:a :c][:a :d][:b :c][:b :d][:c :d]]

只能这样了

#(for [i (range (count %))
       j (range (inc i) (count %))]
   [(nth % i) (nth % j)])

但这很丑陋，而且在更大的集合中非常慢。我想避免循环/重复出现

Answer 1

显式地使用递归......

(defn pairs [coll]
  (if-let [[x & xs] (seq coll)]
    (lazy-cat (map #(vector x %) xs) (pairs xs))))

例如，

(pairs [:a :b :c :d])
; ([:a :b] [:a :c] [:a :d] [:b :c] [:b :d] [:c :d])

这是一个惰性序列。如果需要，您可以使用 vec 将其倒入向量中:我认为最好留给客户做决定。