Clojure 等价于 Lisp 的 atom 函数

Question

我有这段 Lisp 代码，我正在尝试将它转换成 Clojure 代码。

(defun copy-tree (tr)
  (if (atom tr)
    tr
    (cons (copy-tree (car tr))
          (copy-tree (crd tr)))))

Clojure 好像没有Lisp 的atom(或者atom 在Clojure 中的意思很不一样)，只好修改代码如下。 ( Am I using atom? wrong or there is something else....? )

(defn single-valued?
     [x]
     (not (or (nil? x) 
              (.. x getClass isArray)
              (some #(instance? % x) [clojure.lang.Counted
                                      clojure.lang.IPersistentCollection
                                      java.util.Collection
                                      java.util.Map]))))

(defn copy-tree [tr]
  (if (or (= tr ()) (single-valued? tr))
    tr
    (cons (copy-tree (first tr))
          (copy-tree (rest tr)))))

代码工作正常，但是有没有更好的方法来替换 Lisp 的 atom 函数？

Answer 1

我想你会发现这个行为很恰当:

(def single-valued? (complement coll?))

不同的是，对于nil它会更快触底——(rest nil)是()，它最终不会重现，但是 ((complement coll?) nil) 返回 true，因此提前一步停止递归。