clojureでは、関数が最初の失敗で終了するようなdefnのようなマクロを書く方法はありますか？

Question

clojureでは、bodyの関数を作成するdefn-myマクロを書きたいと思います。この機能が実行されたとき、それは例えば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と評価された場合、例外がスローされます。

次に、あなたがこのようなyoutは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である。