SICP 1.2.6 素数检测
2016-06-01 20:54
666 查看
O(n√)的复杂度
(define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-divisor n) test-divisor) (else (find-divisor n (+ test-divisor 1))))) (define (divides? a b) (= (remainder b a) 0)) (define (prime? n) (= n (smallest-divisor n))) (define (square x) (* x x))
相关文章推荐
- 腾讯云ubuntu系统获取root权限
- 框架和设计模式的区别
- Backup: Flow Control in Perl6
- Android 自定义View (一)
- Android学习笔记-TextView实现跑马灯效果
- Linux 双网卡绑定
- 上拉加载,下拉刷新以及集合堆叠效果
- 字符串编程之与整数的互换
- 基于bootstrap 框架的扩展框架 H-ui
- 关于application/x-www-form-urlencoded等字符编码的
- 排序算法实现分析
- 一个Linux下的网络模拟工具 Core
- CSS-边距
- 阿里云ECS(linux)添加ftp用户_并设置权限
- git常用命令的使用
- 制作窗口
- 第十四周项目二-两个成员的类模版(2)
- MySQL存储引擎InnoDB与Myisam的六大区别
- tikz-path
- 鸟哥Java学习之异常-面向对象