当前位置：文江博客话题详情

方案：将代码转换为图片

发布于 2024-09-27 16:42:59 字数 163 浏览 7 评论 0原文

我有一个奇怪的计划问题。这是我正在帮助朋友做的更大事情的一部分。

我需要将 Tree:Data 转换为准确表示树的图像（很抱歉，我还没有可以显示的示例图像）。

如果您对此有任何想法（和/或有疑问），请告诉我，以便我可以更新更多信息。

谢谢

原文

分享到QQ

分享到微博

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

发布评论

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

无敌元气妹 2024-10-04 16:42:59

绘制此类图表的最常见方法之一是使用 graphviz。您只需要扫描树并以非常简单的语法打印出连接。

回复收藏 0 原文

浮光之海 2024-10-04 16:42:59

如果你真的、真的、真的必须直接在Scheme中完成它，那么让我在这里指导你：

http://www.gnu.org/software/mit-scheme/documentation/mit-scheme-ref/Drawing-Graphics.html

方案确实有一个内置的图形库，尽管这可能只是 MIT 方案所特有的。在伯克利，我们的入门课使用了 SICP，并且我们确实有图形，尽管这些图形是否是内置的，或者教师是否为我们添加了它们，我不太清楚。

回复收藏 0 原文

世界和平 2024-10-04 16:42:59

这就是我一直在寻找的答案。我想我应该更好地表达我的问题。无论如何，非常感谢@EliBarzilay 和@KevinHwang 的帮助

(define (Tree:Data->Pict dt)
  (if (DataTree? dt)
      (frame
       (vl-append 10
                  (Tree:Data->Pict (DataTree-data dt))
                  (apply ht-append 10
                         (map Tree:Data->Pict (DataTree-children dt)))))
      (code #,dt)))

This is the answer I was looking for. I guess I should have articulated my question a little better. Thank you very much for the help anyways, @EliBarzilay and @KevinHwang

(define (Tree:Data->Pict dt)
  (if (DataTree? dt)
      (frame
       (vl-append 10
                  (Tree:Data->Pict (DataTree-data dt))
                  (apply ht-append 10
                         (map Tree:Data->Pict (DataTree-children dt)))))
      (code #,dt)))

回复收藏 0 原文

~没有更多了~