Clojure中的尾部呼叫消除?

时间:2010-02-02 04:16:21

标签: clojure scheme tail-recursion tail-call-optimization

有人可以将此(plt)Scheme代码重写为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)))

这样可以不将程序f,g和h一起折叠,并允许代码无限期地运行而不会崩溃?

1 个答案:

答案 0 :(得分:30)

使用蹦床:

(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))

用它开始:

(trampoline f 0)

我已经在我的电脑上在后台运行了这个代码大约5个小时,而且内存使用量持平。