素数計算を高速化し、そのパフォーマンスを測定せよnextを使い高速化したバージョン (define (prime? n) (= n (smallest-divisor n))) (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (square test-div…