연습문제 1.23

next의 정의는 다음과 같다

(define (next n)
  (cond ((= n 2) 3)
        (else (+ n 2))))

> (search-for-primes 10000000000 100)

10000000019***63
10000000033***63
10000000061***109
10000000069***78
10000000097***78
/> (search-for-primes 100000000000 100)

100000000003***234
100000000019***266
100000000057***235
100000000063***265
100000000069***235
100000000073***281
100000000091***219
/> (search-for-primes 1000000000000 100)

1000000000039***797
1000000000061***797
1000000000063***1078
1000000000091***797
/>

로 줄어든다.

실제 비율은 0.51~0.54 정도가 걸린다. 정확히 0.5가 되지 않는 이유는 + 는 내장 함수인 반면  next는 사용자 정의 함수이기때문에 실제 실행시간에 의해 생기는 오차정도로 예상한다.