在 clojure 中，如何编写类似 defn 的宏，其中函数将在第一次失败时退出？

Question

在 clojure 中，我想编写一个 defn-my 宏来创建一个带有 body 的函数。当执行此函数时，它会在第一个不返回 0 的语句处退出。

例如：

(defn f1[] (println "f1") 5)
(defn f2[] (println "f2") 0)
(defn-my foo[] (f1) (f2))     
(defn-my bar[] (f2) (f1))
(foo); should execute f1 and exit
(bar); should execute f2 and then f1

Answer 1

我认为您要求的是这样的：

(defmacro and-zero
  ([] true)
  ([x] (zero? x))
  ([x & next] 
    `(let [and# (zero? ~x)]
       (if and# 
         (and-not-zero ~@next)
         and#))))

user=> (and-zero 0 0 0)
true
user=> (and-zero 0 1 0)
false

宏假设每个表达式的计算结果都是一个数字。例如，如果表达式的计算结果为nil，它将引发异常。

然后你可以这样写defn-my：

(defmacro defn-my [ & body ] `(and-zero ~@body))

Answer 2

只需利用 and 的短路行为即可：

(defn foo []
  (and (f1) (f2)))

(defn bar []
  (and (f2) (f1)))

结果：

user=> (foo)
f1
nil
user=> (bar)
f2
f1
nil

使用 or 可以获得相反的行为，在第一个非零处终止。