higepon https://blog.hatena.ne.jp/higepon/ higepon blog https://higepon.hatenablog.com/ mosh scheme 最大公約数を求める手続き gcd 。ユークリッドの互除法 - Wikipediaを見て思い出しつつ実装。 Bignum に関しては GMP に gcd を求める関数があるのだけどまあいいか。 (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… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20081118%2F1226990897" title=" 最大公約数 - 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> Hatena Blog https://hatena.blog 2008-11-18 15:48:17 rich https://higepon.hatenablog.com/entry/20081118/1226990897 1.0 100%