Что такое идиоматический способ создания бесконечного цикла?
while(true){
calc();
}
Я хочу называть функцию calc навсегда. Только одна функция вызывается снова и снова.
EDIT: Еще одна вещь, которую я забыл упомянуть, заключается в том, что у calc есть побочные эффекты. Он выполняет некоторые вычисления и изменяет массив байтов.
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
[email protected]
(recur))))
Используя макрос while, который Брайан дает в своем ответе, простая задача написать макрос forever, который ничего не делает, кроме как сбросить булевский тест из while:
(defmacro forever [& body] `(while true [email protected])) user=> (forever (print "hi ")) hi hi hi hi hi hi hi hi hi hi hi ....
Это интересная часть любого Lisp, вы можете создавать свои собственные структуры управления, а взамен вы избегаете много шаблонный код.
(цикл [] (Расч) (RECUR))
Другим решением было бы использовать repeatedly как:
(repeatedly calc)
Вместо петли infinte это возвращает бесконечную последовательность. Ленивая последовательность будет немного медленнее, чем жесткая петля, но также позволяет управлять контуром.