빠른 검사를 통과했다는 사실에는 분명한 경계가 있다.

(begin
  (define divisor-tests 0)
  (define (divides? divisor n)
    (set! divisor-tests (+ divisor-tests 1))
    (= (remainder n divisor) 0))
  (define (find-divisor n candidate)
    (cond ((> (* candidate candidate) n) n)
          ((divides? candidate n) candidate)
          (else (find-divisor n (+ candidate 1)))))
  (define (measure n)
    (set! divisor-tests 0)
    (let ((divisor (find-divisor n 2)))
      (list n divisor (= n divisor) divisor-tests)))
  (list (measure 29)
        (measure 35)
        (measure 97)))