{"blog_url":"https://higepon.hatenablog.com/","author_name":"higepon","author_url":"https://blog.hatena.ne.jp/higepon/","blog_title":"higepon blog","height":"190","image_url":null,"width":"100%","published":"2008-11-18 15:48:17","categories":["mosh","scheme"],"url":"https://higepon.hatenablog.com/entry/20081118/1226990897","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20081118%2F1226990897\" title=\" \u6700\u5927\u516c\u7d04\u6570 - higepon blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":" \u6700\u5927\u516c\u7d04\u6570","provider_name":"Hatena Blog","version":"1.0","description":"\u6700\u5927\u516c\u7d04\u6570\u3092\u6c42\u3081\u308b\u624b\u7d9a\u304d gcd \u3002\u30e6\u30fc\u30af\u30ea\u30c3\u30c9\u306e\u4e92\u9664\u6cd5 - Wikipedia\u3092\u898b\u3066\u601d\u3044\u51fa\u3057\u3064\u3064\u5b9f\u88c5\u3002 Bignum \u306b\u95a2\u3057\u3066\u306f GMP \u306b gcd \u3092\u6c42\u3081\u308b\u95a2\u6570\u304c\u3042\u308b\u306e\u3060\u3051\u3069\u307e\u3042\u3044\u3044\u304b\u3002 (define (gcd2 m n) (if (zero? n) (abs m) (gcd2 n (mod m n)))) (define (gcd . n*) (unless (for-all integer-valued? n*) (assertion-violation 'gcd \"integer valued numbers required\")) (case (length n*) [(0) 0\u2026","type":"rich","provider_url":"https://hatena.blog"}