SICP习题 1.23(素数查找的去偶数优化)

aoliupa8726

于 2017-11-24 22:00:00 发布

阅读量142

点赞数

原文链接：http://www.cnblogs.com/R4mble/p/7892524.html

版权

本文介绍了一个使用Scheme语言实现的简单程序，该程序用于找出一个给定整数的最小除数，并判断该整数是否为素数。通过定义几个关键函数：nextn用于获取下一个待测除数；find-divisor用于递归地寻找最小除数；smallest-divisor用于调用find-divisor并初始化测试；divides?用于判断整除性；prime?用于最终确定一个数是否为素数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(define (next n)
  (if (= n 2)
      3
      (+ n 2)))

(define (find-divisor n test-divisor)
  (cond ((> (square test-divisor) n) n)
        ((divides? n test-divisor) test-divisor)
        (else (find-divisor n (next test-divisor)))))

(define (smallest-divisor n)
  (find-divisor n 2))

(define (divides? a b)
  (= (remainder a b) 0))

(define (prime? n)
 (= n (smallest-divisor n)))

(define (square x)
  (* x x))

(smallest-divisor 177)

转载于:https://www.cnblogs.com/R4mble/p/7892524.html