;;素数？ (define (prime? x) (define (prime-iter x n) (if (equal? n x) ;;比べる数と元の数が一緒なら素数 #t (if (equal? (mod x n) 0) ;;割り切れる数が見つかったならそれは非素数 #f (prime-iter x (+ n 1))))) ;;どちらでもなかったら、比べる数を1…