Clojure中的Do-while循環？

Question

所以我想先執行一堆代碼，然後然後詢問用戶是否他想再做一次。我想到的最便捷的方式做這將是一個do-while循環類似於C++，因爲我似乎無法找到Clojure中的任何DO-同時功能，我寫了下面：

(defmacro do-while 
    "Executes body before testing for truth expression" 
    [test & body] 
    `(do (do ~@body) (while ~test ~@body))) 

會有沒有更好的（比如更習慣性的Clojure-ish）寫這個宏的方式，或者更好的方式做我想做的事，而不需要通過do-while路徑？

Answer 1

這裏有一個稍微改變版本的Clojure's while macro，其中測試評估後身體做：

(defmacro do-while 
    [test & body] 
    `(loop [] 
    ~@body 
    (when ~test 
     (recur))))