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

Question

说我有类似的东西

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

我想交换最内层的对来做它

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

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

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

Answer 1

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))

你可能会拿出不同的pair? 谓词更适合您的域名。