{"title":"q3.7","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmodeverv.hateblo.jp%2Fentry%2F20091016%2F1255668445\" title=\"q3.7 - \u30cb\u30fc\u30c8=&gt;\u30cd\u30c8\u30b2\u5c4b=&gt;\u30d6\u30e9\u30c3\u30af=&gt;\u96fb\u8a71\u5c4b\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["scheme"],"provider_url":"https://hatena.blog","width":"100%","type":"rich","published":"2009-10-16 13:47:25","description":"(define (make-joint account ourpass genpass) (define (withdraw amo) ((account 'withdraw genpass) amo)) (define (deposit amount) ((account 'deposit genpass) amo)) (define (dispatch m p) (if (eq? ourpass p) (cond ((eq? m 'withdraw) withdraw) ((eq? m 'deposit) deposit) (else (error \"can not dispatch!\")\u2026","author_name":"cast_everything","height":"190","version":"1.0","blog_title":"\u30cb\u30fc\u30c8=>\u30cd\u30c8\u30b2\u5c4b=>\u30d6\u30e9\u30c3\u30af=>\u96fb\u8a71\u5c4b","image_url":null,"url":"https://modeverv.hateblo.jp/entry/20091016/1255668445","blog_url":"https://modeverv.hateblo.jp/","author_url":"https://blog.hatena.ne.jp/cast_everything/","provider_name":"Hatena Blog"}