Clojure无限循环

Question

创建无限循环的惯用方法是什么？

while(true){
   calc();
}

我想永远调用calc函数.一次又一次地调用一个函数.

编辑:我忘了提到的另一件事是calc有副作用.它进行一些计算并修改字节数组.

Answer 1

while 在核心库中.

(while true (calc))

这扩展到简单recur.

(defmacro while
  "Repeatedly executes body while test expression is true. Presumes
  some side-effect will cause test to become false/nil. Returns nil"
  [test & body]
  `(loop []
     (when ~test
       ~@body
       (recur))))

Answer 2

使用Brian在他的回答中提供的while宏是一个简单的任务,编写一个宏,除了从以下位置删除布尔测试之外什么也不做:foreverwhile

(defmacro forever [& body] 
  `(while true ~@body))

user=> (forever (print "hi "))                         
hi hi hi hi hi hi hi hi hi hi hi ....

这是任何Lisp的有趣部分,您可以创建自己的控制结构,作为回报,您可以避免大量的样板代码.

Answer 3

(loop [](calc)(recur))