Clojure :：arity重载函数相互调用

Question

Clojure的示例-重载如下所示的函数(取自cookbook)：

(defn argcount
  ([] 0)                                ; Zero arguments
  ([x] 1)                               ; One argument
  ([ x &  args] (inc (count args))))    ; List of arguments

..。使用一种形式，似乎不允许较低的函数简单地调用具有一些默认值的较高的函数(这是Java中的一种常见用法)。是否有其他特殊形式用于此目的？

Answer 1

通常有一种很好的方法来表达高阶参数，这种方法不需要引用其他使用高阶函数和map / reduce的参数。在本例中，它非常简单：

(defn argcount
  ([] 0)
  ([x] 1)
  ([x & args]
    (reduce + 1 (map (constantly 1) args))))

请注意，表达式的一般形式为：

(reduce reducing-function arity-1-value (map mapping-function rest-of-args))

你不能用这种方式做所有的事情，但是这对于一个多参数函数来说是非常有效的。它还获得了使用map的懒惰的优点，所以你可以做一些疯狂的事情，比如将一千万个参数传递给一个函数，而不用担心：

(apply argcount (take 10000000 (range)))
=> 10000000

在大多数其他语言中尝试一下，你的堆栈就完蛋了:-)

Answer 2

mikera的回答很棒；我只需要添加一个额外的方法。当重载函数需要默认值时，可以使用local。

在下面的示例除法中，local需要数字和精度。定义的函数使用默认值重载精度。

(def overloaded-division
 (let [divide-with-precision
  (fn [divisor dividend precision]
    (with-precision precision (/ (bigdec divisor) (bigdec dividend))))]
     (fn
      ;lower-arity calls higher with a default precision.
      ([divisor dividend] (divide-with-precision divisor dividend 10))
      ;if precision is supplied it is used.
      ([divisor dividend precision] (divide-with-precision divisor dividend precision)))
   )
 )

在较低级别调用时，它应用的默认值为：

user=> (overloaded-division 3 7)
0.4285714286M
user=> (overloaded-division 3 7 40)
0.4285714285714285714285714285714285714286M