SICP 练习1.19
2016-06-01 20:31
225 查看
经过推导
p′=p2+q2
q′=2pq+q2
(define (fib n) (fib-iter 1 0 0 1 n)) (define (fib-iter a b p q count) (cond ((= count 0) b) ((even? count) (fib-iter a b (+ (* q q) (* p p)) (+ (* 2 p q) (* q q)) (/ count 2))) (else (fib-iter (+ (* b q) (* a q) (* a p)) (+ (* b p) (* a q)) p q (- count 1))))) (fib 10)
相关文章推荐
- <GPS> Learning Neural Network Policies with Guided Policy Search under Unknown Dynamics
- C#之四十 Winform MD5加密
- java环境变量详解---找不到或无法加载主类
- [可并堆学习]
- C#之四十 Winform MD5加密
- C#之四十 Winform MD5加密
- FFT 模板
- 12.2.12 创建有响应的用户界面 捕获异常
- c++-可变参数模板函数
- JAVA 集合框架学习笔记
- zabbix 主机名必须要能ping通
- Skyline学习系列 01 如何通过SFS发布shape文件
- 使用 Redis 实现分布式系统轻量级协调技术
- zabbix 主机名必须要能ping通
- zabbix 主机名必须要能ping通
- Apache Flume 分布式日志收集系统学习
- y
- [iOS] 判断tableView向上或向下滑动
- android activity四种加载模式
- 站立会议04(第二期)