{"blog_url":"https://boxnos.hatenablog.com/","provider_url":"https://hatena.blog","height":"190","author_url":"https://blog.hatena.ne.jp/tanakaBox/","url":"https://boxnos.hatenablog.com/entry/20071217/1197897915","description":"\u3069\u3046\u3082\u4e8c\u9032\u6728\u306e\u30ea\u30b9\u30c8\u8868\u793a\u304c\u308f\u304b\u308a\u306b\u304f\u3044\u306e\u3067\u3001Graphviz\u4f7f\u3046\u3053\u3068\u306b\u3002 define (graph tree) (system (format \"echo 'digraph G { ~a ~a }' | dot -Tpng | display\" (entry tree) ; \u4e00\u500b\u3060\u3051\u3060\u3068\u8868\u793a\u304c\u51fa\u6765\u306a\u3044\u306e\u3067\u3068\u308a\u3042\u3048\u305a\u6700\u521d\u306e\u3092\u633f\u5165\u3057\u3068\u304f (letrec ((make-node (lambda (current next) (if (null? next) \"\" (format \"~a->~a \" (entry current) (entry next))))) (iter (lambda (tr\u2026","title":" SICP\u3092\u8aad\u3080(76) \u4e8c\u9032\u6728\u3092Graphviz\u3067\u8868\u793a","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/t/tanakaBox/20071217/20071217220722.png","blog_title":"\u30dc\u30af\u30ce\u30b9","version":"1.0","categories":["Scheme"],"published":"2007-12-17 22:25:15","type":"rich","author_name":"tanakaBox","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20071217%2F1197897915\" title=\" SICP\u3092\u8aad\u3080(76) \u4e8c\u9032\u6728\u3092Graphviz\u3067\u8868\u793a - \u30dc\u30af\u30ce\u30b9\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%"}