Clojure бесконечный цикл

Question

Что такое идиоматический способ создания бесконечного цикла?

while(true){ 
    calc(); 
} 

Я хочу называть функцию calc навсегда. Только одна функция вызывается снова и снова.

EDIT: Еще одна вещь, о которой я забыл упомянуть, заключается в том, что 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

(цикл [] (расч) (повторяются))

Answer 3

Используя while макрос, который Brian обеспечивает в своем ответе, что это простая задача, чтобы написать forever макрос, который ничего не делает, но падает логическое испытание от while:

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

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

Это забавная часть любого Lisp, вы можете создавать свои собственные структуры управления, а взамен вы избегаете большого количества boilerplate code.

Answer 4

Другим решением было бы использовать repeatedly как:

(repeatedly calc) 

Вместо того, петли infinte, это возвращает бесконечную последовательность. Ленивая последовательность будет немного медленнее, чем плотный цикл, но также позволяет контролировать цикл.