clojure - 如何在 Clojure 中的函数内定义函数并引用该函数？

Question

我写了一个函数来计算两组的对称差异(4clojure 站点上的问题之一)。该函数通过了单元测试，但没有我想要的那么干净，因为我有重复的代码。

(fn [x y] (set (concat 
  (keep-indexed #(if (nil? (get y %2)) %2) x)
  (keep-indexed #(if (nil? (get x %2)) %2) y))))

显然，我更喜欢这样的事情:

(fn [x y] (set (concat (diff x y) (diff y x))))

diff 函数被定义并引用为“内联”，但我不知道如何在一个 fn 块中做到这一点。

Answer 1

使用 let或 letfn :

(fn [x y]
  (let [diff (... function body here ...)]
   (set
    (concat (diff x y) (diff y x)))))