{"width":"100%","title":" \u9045\u5ef6\u8a55\u4fa1\u306e\u304a\u52c9\u5f37","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080429%2F1209475939\" title=\" \u9045\u5ef6\u8a55\u4fa1\u306e\u304a\u52c9\u5f37 - \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>","author_url":"https://blog.hatena.ne.jp/tanakaBox/","provider_name":"Hatena Blog","url":"https://boxnos.hatenablog.com/entry/20080429/1209475939","description":"\u9045\u5ef6\u8a55\u4fa1\u306e\u304a\u52c9\u5f37\u306b\u3001Scheme\u3067Haskell\u30e9\u30a4\u30af\u306a\u30a4\u30f3\u30bf\u30d7\u30ea\u30bf\u3092\u4f5c\u3063\u3066\u307f\u308b\u3002\u8db3\u3057\u7b97\u3068if\u3057\u304b\u306a\u3044\u3002 (define (skell src) (define (forever) (forever)) (define (reader src) (fold (lambda (m cont) (cont (cond ((integer? m) (lambda (x) m)) ((pair? m) (lambda (x) ((reader m) x))) (else (case m ('+ (lambda (a) (lambda (b) (lambda (x) (+ (a x) (b x)))))\u2026","published":"2008-04-29 22:32:19","author_name":"tanakaBox","blog_url":"https://boxnos.hatenablog.com/","categories":["Scheme"],"version":"1.0","height":"190","blog_title":"\u30dc\u30af\u30ce\u30b9","image_url":null,"type":"rich"}