Question

我一直在用另一种语言重新实现一些Clojure函数，使用测试作为参考，我对the tests clojure.core/comp感到困惑。

(deftest test-comp
  (let [c0 (comp)]
    (are [x] (= (identity x) (c0 x))
         nil
         42
         [1 2 3]
         #{}
         :foo)
    (are [x y] (= (identity x) (c0 y))
         (+ 1 2 3) 6
         (keyword "foo") :foo)))

comp本身只使用一次，没有参数。这种行为似乎没有记录，但the source表明它只返回identity函数。

(defn comp
  ([] identity)
  ([f] f)
  ([f g] 
     (fn 
       ([] (f (g)))
       ([x] (f (g x)))
       ([x y] (f (g x y)))
       ([x y z] (f (g x y z)))
       ([x y z & args] (f (apply g x y z args)))))
  ([f g & fs]
     (reduce1 comp (list* f g fs))))

这是否意味着3/4的这些arities没有经过测试？或者是否在其他地方保留了测试？我通过GitHub搜索找到了这些测试，但它们并不总是完全可靠。

为什么零arity形式有测试，当它看起来像最不实用的变体？

Answer 1

是。它只在这里测试过。事实上，在v1.3.0中添加零arg版本之前，没有comp的测试。请查看此commit及其parent。
零参数comp很有用，它有助于消除角落情况下的琐碎分支代码。假设您要对给定输入进行一系列转换。但是这些转换是动态生成的，它可以降级到不应该进行转换的程度。

编辑：提供我的观点2的例子：

(defn my-format
  "Returns an HTML representation of the given text in a paragraph,
   supports `:b' for bold and `:i' for italic font, and possibly more
   in the future."
  [text & more-args]
  (let [wrap (fn [w t] (str "<" w ">" t "</" w ">"))]
    (wrap "p" ((apply comp 
                      (map #(partial wrap (name %)) more-args))
               text)))
; => (my-format "hello world" :b :i)
; "<p><b><i>hello world</i></b></p>
; => (my-format "hello world")
; "<p>hello world</p>

代码段很简单，但你明白了。如果comp不支持0-arity版本，则代码看起来不那么优雅。

测试Clojure的comp函数

1 个答案: