Clojure 中的尾调用消除？

发布于 2024-08-20 02:45:26 字数 268 浏览 4 评论 0原文

有人可以将这个 (plt) 方案代码重写为 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 一起崩溃并允许代码无限期地运行而不崩溃？

原文

Can somebody rewrite this (plt) Scheme code into 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)))

In such a way as to not collapse the procedures f, g, and h together and to allow the code to run indefinitely without crashing?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

故事↓在人 2024-08-27 02:45:26

使用蹦床：

(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 个小时，并且内存使用量持平。

Use a trampoline:

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

Kick it off with: