こんな感じかな。 (define (square x) (* x x)) (define (expmod base ex m) (cond ((= ex 0) 1) ((and (not (= base 1)) (not (= base (- m 1))) (= (remainder (square base) m) 1)) 0) ((even? ex) (remainder (square (expmod base (/ ex 2) m)) m)) (el…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。