¿Eliminación de llamadas de cola en Clojure?

scheme tail-recursion

Question

¿Alguien puede reescribir este código de Esquema (plt) en Clojure?

(define (f n)
   (printf "(f ~a)~n" n)
   (g n))

(define (g n)
   (printf "(g ~a)~n" n)
   (h n))

(define (h n)
   (printf "(h ~a)~n" n)
   (f (+ n 1)))

¿De tal manera que no colapsen los procedimientos f, g y h juntos y permitan que el código se ejecute indefinidamente sin fallar?

Answer 1

Use un trampolín:

(declare f)

(defn h [n]
   (println "(h " n ")")
   #(f (+ n 1)))

(defn g [n]
   (println "(g " n ")")
   #(h n))

(defn f [n]
   (println "(f " n ")")
   #(g n))

Comience con:

(trampoline f 0)

He tenido este código ejecutándose en mi PC en segundo plano durante aproximadamente 5 horas y el uso de la memoria es simple.