(define (smallest-divisor n)(find-divisor n 2))(define (find-divisor n test-divisor)(cond ((> (square test-divisor) n) n)((divides? n test-divisor) test-divisor)(else (find-divisor n (+ test-divisor 1)))))(define (divides? a b)(= (remainder a b) 0));(define (prime? n) ; (= n (smallest-divisor n)))(define (square x)(* x x))(smallest-divisor 199) (smallest-divisor 1999) (smallest-divisor 19999)

　　

199
1999
7

轉載于:https://www.cnblogs.com/R4mble/p/7892348.html

總結

以上是生活随笔為你收集整理的SCIP习题 1.21(寻找最小因子)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。