{"provider_url":"https://hatena.blog","author_name":"winebarrel","version":"1.0","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fso-wh.at%2Fentry%2F20070415%2Fp7\" title=\" \u554f\u984c1.24 - so what\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":" \u554f\u984c1.24","blog_title":"so what","categories":["SICP"],"author_url":"https://blog.hatena.ne.jp/winebarrel/","url":"https://so-wh.at/entry/20070415/p7","published":"2007-04-15 00:00:01","width":"100%","provider_name":"Hatena Blog","description":"\u50d5\u306e\u89e3\u7b54 \u3068\u308a\u3042\u3048\u305a\u5b9f\u88c5\u3002 \u8a66\u884c\u56de\u6570\u306f10\u56de\u3068\u3057\u3066\u307f\u308b\u3002 (use srfi-27) (define random random-integer) (define (runtime) (- (time->seconds (current-time)) 1136041200)) (define (square n) (* n n)) (define (expmod base exp m) (cond ((= exp 0) 1) ((even? exp) (remainder (square (expmod base (/ exp 2) m)) m)) (else (remainder (* ba\u2026","blog_url":"https://so-wh.at/","type":"rich","height":"190"}