如何在clojure中交换深度嵌套向量中的所有元素对？

比如说我有

[[[[1 2] [3 4] [5 6]]] [[[7 8] [9 10]]] [[[2 4]]]]

我想交换最里面的一对来做

[[[[2 1] [4 3] [6 5]]] [[[8 7] [10 9]]] [[[4 2]]]]

假设我在得到数据之前不知道深度，并且所有对都处于相同的深度级别

---

实现这一点的惯用方法是什么？

clojure.walk将完成以下工作：

(require '[clojure.walk :as walk])

(defn pair? [s]
  (and (vector? s)
       (every? (complement vector?) s)
       (= (count s) 2)))

(defn swap-pairs [s]
  (walk/prewalk #(if (pair? %)
                   (vec (reverse %))
                   %)
                s))

---

您可能会提出不同的

对？

谓词，更适合您的域。

您是如何解决这个问题的？当你说“最里面的”时，在这种情况下，你似乎是指所有的。也许更多的测试用例会有所帮助？到目前为止你试过什么？