获取当前元素和包含Clojure中其他所有内容的列表？

Question

获取包含当前元素对的列表以及包含所有其他元素的列表的最快方法是什么？ 这应该很快，因为列表可能包含一百万或更多元素。

例如给出列表(1 2 3)

我想得到清单((1 (2 3)) (2 (1 3)) (3 (1 2)))

谢谢你的帮助！

Answer 1

这将无需遍历遍历整个向量：

(defn this-and-that [xs]
  (map-indexed (fn [i x]
                [x (concat (take i xs) 
                           (drop (inc i) xs))])
              xs))

并且也适用于nils：

user=> (this-and-that [1 2 nil 3])
([1 (2 nil 3)] [2 (1 nil 3)] [nil (1 2 3)] [3 (1 2 nil)])

Answer 2

“百万元素”并不是很多。 试试这是否足够快：

(defn this-and-that
  [s]
  (map-indexed (fn [i el]
                 [el (keep-indexed #(if (= %1 i)
                                            nil
                                            %2) s)]) s))

例：

user> (this-and-that [1 2 3])
([1 (2 3)] [2 (1 3)] [3 (1 2)])

请注意，对于包含nil seq，此代码无法正常工作。

Answer 3

其他答案提供了很好的方法，但是你所描述的基本上是一个O（n ^ 2）操作，假设你实际上已经实现了所有的懒惰序列等。如果n> =这可能不是一个好主意。百万

您可能需要考虑扩大您正在考虑的代码范围，看看您是否可以找到更有效的算法。

例如，您可能会发现最好将整个列表转换为向量，并根据对向量的索引访问来编写算法。

Answer 4

使用套装怎么样？

user> (let [xs #{1 2 3}]
        (for [x xs] [x (disj xs x)]))
([1 #{2 3}] [2 #{1 3}] [3 #{1 2}])

在具有一百万个项目的集合上执行此操作时间并不太糟糕：

(let [xs (set (range 1000000))]
  (time (count (for [x xs] [x (disj xs x)]))))
"Elapsed time: 841.668 msecs"
1000000