smaillest-divisor
(define (square x) (* x x))
(define (divides? a b) (= (remainder b a) 0))
(define (smaillest-divisor n)
(find-divisor n 2))
(define(find-divisor n test-divisor)
(cond ((> (square test-divisor) n) n) //如果test-divisor>√n 则n本身就是他最小因子
((divides? test-divisor n) test-divisor )
(else (find-divisor n (+ test-divisor 1)))
)
)
199和1999都是素数,他的除1以外的最小因子就是它本身
19999是合数,最小因子是7