SCIP习题 1.21(寻找最小因子)
Posted ...............洋葱的秋秋空间........
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了SCIP习题 1.21(寻找最小因子)相关的知识，希望对你有一定的参考价值。
(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
以上是关于SCIP习题 1.21(寻找最小因子)的主要内容，如果未能解决你的问题，请参考以下文章