clojure - Clojure 中的 Do-while 循环？

Question

所以我想首先执行一堆代码，然后询问用户是否想再执行一次。我认为最方便的方法是使用像 C++ 中的 do-while 循环，并且由于我在 Clojure 中似乎找不到任何 do-while 函数，所以我编写了以下内容:

(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))))