Две функции, которые называют друг друга рекурсивно

Question

Можно ли определить две функции в clojure, которые рекурсивно называют друг друга? Например, эта пара:

(defn a [x] 
    (if (= 0 x) 0 (b (dec x)))) 

(defn b [x] 
    (if (= 0 x) 0 (a (dec x)))) 

Компиляция завершается с:

Unable to resolve symbol: b in this context 

Поскольку я не определен b, когда я пытаюсь вызвать его в a.

например, рубина это работает отлично:

def a(x) 
    x == 0 ? x : b(x-1) 
end 

def b(x) 
    x == 0 ? x : a(x-1) 
end 

Answer 1

либо:

(declare b) ...; Остальная часть кода может быть использован как

или:

(def mutual 
(letfn [(a [ ... ] ...) 
     (b [ ... ] ...)] 
    [a b])) 

(def a (first mutual)) 
(def b (second mutual)) 

Answer 2

В зависимости от выполнения кода, имейте в виду, что вы можете получить исключение переполнения стека.

Существует функция (clojure.core/trampoline), которая входит в игру и выполняет свою магию.

батут может быть использован для преобразования алгоритмов, требующих взаимного использования. рекурсия без использования стека. Вызывает f с указанными аргументами, если любой. Если f возвращает fn, вызывает fn без аргументов, а продолжает повторять, пока возвращаемое значение не будет fn, тогда возвращает это значение non-fn. Обратите внимание, что если вы хотите вернуть fn в качестве окончательного значения , вы должны перенести его в некоторую структуру данных и распаковать его после возвращения батута.