如何通过Clojure的两套迭代以退还其笛卡尔产品？

Question

因此，我接受两个集合并想要迭代它们，以便返回一个包含两个集合的叉积的新集合。

(defn cartesian
  "computes Cartesian product of A and B"

  [A B]
  

  use "set", "for")

我对 Clojure 很陌生，所以我不确定为什么要使用“set”，“for”包含在其中。 但 A 和 B 将是集合。现在我想迭代每一个并返回它们的笛卡尔积。示例：

(cartesian #{1 2} #{3 4 5}) => #{[1 3] [1 4] [1 5] [2 3] [2 4] [2 5]}

但我不确定到达那里的步骤。我已经查看了文档等，但找不到我要找的东西。这个问题的其他答案涉及列表等。但我必须使用 2 套。

我正在查看的 atm 正在使用 doseq[e A] 并在其中 doseq[x B] 然后添加每个向量对 [ex] 到一个新的 Set，然后返回它。但这看起来不像是标准的功能解决方案。我走在正确的轨道上吗？如何将其添加到新集合中？

Answer 1

您可以使用 ：

(defn cartesian [A B]
  (set (for [a A
             b B]
         [a b])))

(cartesian #{1 2} #{3 4 5})
;; => #{[2 3] [2 5] [1 4] [1 3] [1 5] [2 4]}

Answer 2

使用来自 cartesian-product “https://github.com/clojure/math.combinatorics”rel="nofollow noreferrer">clojure.math.combinatorics。要获得您想要的确切结果（向量集），请使用 into 使用 map 转换器：

(into #{} (map vec) (clojure.math.combinatorics/cartesian-product #{1 2} #{3 4 5}))
=> #{[2 3] [2 5] [1 4] [1 3] [1 5] [2 4]}