Clojure:命名匿名函数

在Clojure中,何时以及为什么要使用命名的匿名函数？例如,

((fn add-five [x] (+ x 5)) 3))

在ClojureDocs中,一个例子的评论说它在堆栈跟踪中很有用.可以举个例子吗？

命名匿名函数有两个原因(或至少有两个原因,我已经这样做了).第一个是给它一个名字告诉后来的读者(可能是你自己6个月后),匿名函数应该做什么.

第二个是(如您所述)在堆栈跟踪中有更好的信息,以便在发生故障时将您指向代码中的正确位置.函数被编译成类,类名包括函数名的(munged)版本.当您有一个堆栈跟踪时,它将包含该类名称,从而将您的语义指向正确的位置.

user=> (filter (fn [x] (/ 100 x)) [100 50 0])
ArithmeticException Divide by zero  clojure.lang.Numbers.divide (Numbers.java:158)
user=> (pst *e)
ArithmeticException Divide by zero
    clojure.lang.Numbers.divide (Numbers.java:158)
    clojure.lang.Numbers.divide (Numbers.java:3784)
    user/eval8/fn--9 (NO_SOURCE_FILE:3)
    clojure.core/filter/fn--6908 (core.clj:2790)
    ...
nil

user=> (filter (fn hundred-div [x] (/ 100 x)) [100 50 0])
ArithmeticException Divide by zero  clojure.lang.Numbers.divide (Numbers.java:158)
user=> (pst *e)
ArithmeticException Divide by zero
    clojure.lang.Numbers.divide (Numbers.java:158)
    clojure.lang.Numbers.divide (Numbers.java:3784)
    user/eval14/hundred-div--15 (NO_SOURCE_FILE:5)        ;; <---
    clojure.core/filter/fn--6908 (core.clj:2790)
    ...

除了在堆栈跟踪中有用之外,我想你可以在需要匿名函数递归时使用它,因为它可以自己调用.

例如:

(fn factorial[n]
  (if (<= n 1)
    1
    (* n  (factorial (- n 1)))))

虽然在Clojure中这样递归有点危险,因为它可能会导致堆栈溢出.

命名匿名函数在引用自己时也很有用,并且通过使用其名称打印:

user=> ((fn [] (throw (Exception. "unnamed"))))

Exception unnamed  user/eval805/fn--806 (NO_SOURCE_FILE:1)
user=> ((fn myfn [] (throw (Exception. "named"))))

Exception named  user/eval809/myfn--810 (NO_SOURCE_FILE:1)