有人可以将此(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一起折叠,并允许代码无限期地运行而不会崩溃?
答案 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个小时,而且内存使用量持平。