{"url":"https://trotr.hatenadiary.org/entry/20090221/1235235751","categories":["scheme"],"provider_name":"Hatena Blog","description":"Gauche\u3067RDB\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0 Gauche\u3067\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u30a8\u30f3\u30b8\u30f3\u3092\u4f5c\u308b \u7d99\u7d9a\u3092\u4f7f\u3063\u305f\u30b3\u30f3\u30c8\u30ed\u30fc\u30e9\u3092\u4f5c\u308b \u3092\u8aad\u3093\u3060\u3002\u304a\u3082\u3057\u308d\u304b\u3063\u305f\u3002 A+B\u306e\u3068\u3053\u308d\u3092call/cc\u3092\u4f7f\u3046\u3068\u3069\u3046\u306a\u308b\u3093\u3060\u308d\u3046\uff1f (define (add/cc-maker message) (let ((info (cut print <> message)) (cont #f)) (info \"A\") (lambda (x) (call/cc (lambda (end) (if cont (cont x) (print \"A + B\u306f\" (+ x (call/cc (lambda (c) (set! cont c) (inf\u2026","type":"rich","height":"190","blog_url":"https://trotr.hatenadiary.org/","version":"1.0","image_url":null,"blog_title":"trotr\u306e\u65e5\u8a18","published":"2009-02-21 02:02:31","author_url":"https://blog.hatena.ne.jp/trotr/","author_name":"trotr","provider_url":"https://hatena.blog","width":"100%","title":"@it\u306egauche\u306e\u9023\u8f09\u3092\u8aad\u3093\u3060","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftrotr.hatenadiary.org%2Fentry%2F20090221%2F1235235751\" title=\"@it\u306egauche\u306e\u9023\u8f09\u3092\u8aad\u3093\u3060 - trotr\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}