{"blog_url":"https://higepon.hatenablog.com/","blog_title":"higepon blog","provider_name":"Hatena Blog","author_name":"higepon","version":"1.0","type":"rich","title":" set! \u306e\u30d0\u30b0\u4fee\u6b63","url":"https://higepon.hatenablog.com/entry/20090603/1244039266","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20090603%2F1244039266\" title=\" set! \u306e\u30d0\u30b0\u4fee\u6b63 - higepon blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","image_url":null,"description":"\u518d\u73fe\u30b3\u30fc\u30c9\u3002 (import (rnrs)) (define-syntax increment! (syntax-rules () ((_ ?varname) (set! ?varname (+ ?varname 1))))) (do ((i 0 (+ 1 i)) (count 0)) ((= i 4)) (increment! count)) \u6700\u5c0f\u518d\u73fe\u30b3\u30fc\u30c9\u3002 (letrec ((loop (lambda (i) (set! i 1) (loop 1)))) (loop '0)) pass3/$call \u3067 make-box \u3068 label \u306e\u51fa\u73fe\u4f4d\u7f6e\u3092\u30df\u30b9\u3063\u3066\u305f\u3002 \u307e\u3060\u3053\u3093\u306a\u306b\u5358\u7d14\u306a\u30d0\u30b0\u304c\u2026","published":"2009-06-03 23:27:46","categories":["mosh"],"width":"100%","author_url":"https://blog.hatena.ne.jp/higepon/"}