smoking186 https://blog.hatena.ne.jp/smoking186/ 186 @ hatenablog https://186.hatenablog.com/ CS scheme 誰の役に立つのか分からないけど. 分岐が意外と多い. Jacobi記号はLegendre記号の一般化になっているので, Legendre記号もこれで求められますよ. (define (Jacobi a n) (cond ((= a 0) 0) ((= a -1) (cond ((= (modulo n 4) 1) 1) ((= (modulo n 4) 3) -1))) ((= a 2) (cond ((= (modulo n 8) 1) 1) ((= (modulo n 8) 3) -1) ((= (modulo n 8) 5) -1) ((= (modulo n 8) 7) 1))) ((… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2F186.hatenablog.com%2Fentry%2F20090809%2F1249744409" title=" SchemeでJacobi記号 - 186 @ hatenablog" 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 2009-08-09 00:13:29 rich https://186.hatenablog.com/entry/20090809/1249744409 1.0 100%