1.22 의 풀이에 다음의 코드만 수정, 추가 한다.
[CODE]
(define (find-divisor n test-divisor)  
  (cond ((> (square test-divisor) n) n)  
        ((divides? test-divisor n) test-divisor)  
        (else (find-divisor n (next test-divisor)))))

(define (next n)
  (cond ((= n 2) 3)
        ((even? n) (+ n 1))
        (else (+ n 2))))
[/CODE]

수행 결과

결과를 보면 1.22 때에 비해서 2배가 빨라지진 않는다. 수행하는 명령어의 수가 절반으로 줄었으나 원래 알고리즘의 수행시간이 이었으므로 성능향상은 약 만큼 일어난다고 보는 게 옳다. 실험 결과를 봐도 1.3 배 정도로 1.414 와 비슷한 것을 알 수 있다.