search-for-primes 函数接受参数 n ，找出大于等于 n 的三个素数，并且返回运行时间。
可以将不同的函数放置在不同的文件中方便调用
例如在文件one.rkt中有
#lang racket
(provide square)(define (square x)(* x x))之后可以在two.rkt中调用该函数接口
#lang racket
(require "one.rkt")首先定义函数 next-odd 接受一个参数 n ，生成跟随在 n 之后的第一个奇数：
(define (next-odd n)(if (odd? n)(+ 2 n)(+ 1 n)))改写书本 33 页的 prime? 函数用于检测给定数是否为素数：
(define (find-divisor n test-divisor)(cond ((> (square test-divisor) n)n)((divides? test-divisor n)test-divisor)(else(find-divisor n (+ test-divisor 1)))))对于原来的find-divisor函数，第一个判断用于停止该函数的运行：
(= n (smallest-divisor n)))第2个判断是否为因子
(remainder b a)用于返回b除以a的余数。
(define (divides? a b)(= (remainder b a) 0))如果2不是n的因子，那么在后面都不需要对2的倍数进行判断。通过定义next函数对prime? 函数进行优化：
(define (next n)(if (= n 2)3(+ n 2)))将
(find-divisor n (+ test-divisor 1))改为
(find-divisor n (next test-divisor))此时引入覆盖的概念：当一个环境中存在两个同名的绑定时，新的绑定会覆盖旧的绑定。例如文件 f.scm ，里面有 a 、 b 、 c 、 d 四个函数，如果我们需要修改函数 b ，而且还要重用函数 a 、 c 和 d ，那么新建f1.scm ，先载入 func.scm ，然后进行新的函数 b 的定义。
（虽然在此题中被覆盖的函数显得更慢，但是在别的情况下可能需要保存原函数以解决不同的情况）
(define (prime? n)(= n (smallest-divisor n)))
(define (smallest-divisor n)(find-divisor n 2))利用前面2个函数定义生成连续素数的 continue-primes 函数。
(define (continue-primes n count)(cond ((= count 0)(display "are primes."))((prime? n)(display n)(newline)(continue-primes (next-odd n) (- count 1)))(else(continue-primes (next-odd n) count))))首先使用 next-odd 生成一个奇数，然后使用 prime? 检查给定的奇数是否素数，一直这样计算下去，直到满足参数 count 指定的数量为止。
最终根据
(define (test-foo)(let ((start-time (real-time-clock)))(foo)(- (real-time-clock) start-time)))写出search-for-primes函数：
(define (search-for-primes n)(let ((start-time (real-time-clock)))(continue-primes n 3)(- (real-time-clock) start-time)))由于书本给出的 timed-primes-test会使程序过于复杂。但是编译器显示real-time-clock未定义。
该函数也体现了将过程（函数）作为参数。