SCIP习题 1.21(寻找最小因子)
生活随笔
收集整理的這篇文章主要介紹了
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
轉載于:https://www.cnblogs.com/R4mble/p/7892348.html
總結
以上是生活随笔為你收集整理的SCIP习题 1.21(寻找最小因子)的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 单片机指令周期、机器周期、状态周期、时钟
- 下一篇： 开发文档之 概要设计说明书 详细设计说明