{"blog_url":"https://awacio.hatenadiary.org/","provider_name":"Hatena Blog","title":"SICP \u00a7 1.2.6 \u7d20\u6570\u6027\u306e\u30c6\u30b9\u30c8\uff08\u305d\u306e\uff12\uff09","categories":["SICP","Scheme"],"url":"https://awacio.hatenadiary.org/entry/20100218/1266464820","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fawacio.hatenadiary.org%2Fentry%2F20100218%2F1266464820\" title=\"SICP \u00a7 1.2.6 \u7d20\u6570\u6027\u306e\u30c6\u30b9\u30c8\uff08\u305d\u306e\uff12\uff09 - awacio.log\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"blog_title":"awacio.log","height":"190","description":"\u3042\u3093\u307e\u308a\u6570\u5b66\u306b\u304b\u304b\u305a\u3089\u308f\u3063\u3066\u672c\u6765\u306e\u76ee\u7684\u304c\u9042\u884c\u3055\u308c\u306a\u3044\u306e\u3082\u30a2\u30ec\u306a\u306e\u3067\u3001 \u4f8b\u306emodulo\u6f14\u7b97\u306e\u5c55\u958b\u306f\u300c\u305d\u3046\u3044\u3046\u3082\u306e\u300d\u3068\u3057\u3066\u9032\u3080\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002 \u3064\u30fc\u308f\u3051\u3067\u30b3\u30ec\u3067\u3059\u3002 ;\u3042\u308b\u6570\u306e\u3079\u304d\u4e57\u3092\u6cd5\u3068\u3059\u308b\u5270\u4f59\u3092\u6c42\u3081\u308b\u95a2\u6570 (define (expmod base exp m) (cond ((= exp 0) 1) ((even? exp) (remainder (square (expmod base (/ exp 2) m)) m)) (else (remainder (* base (expmod base (- exp 1) m)) m)))) ;\u304a\u307e\u3051 ;\u5b9f\u884c\u3059\u308b\u3068\u304d\u306b\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u306e\u2026","type":"rich","provider_url":"https://hatena.blog","author_name":"awacio","width":"100%","author_url":"https://blog.hatena.ne.jp/awacio/","published":"2010-02-18 12:47:00"}