【SICP练习】84 练习2.56
2015-09-08 00:00
309 查看
这道题的代码略长啊。不过我也是因此而知道Edwin上的代码居然可以复制到word上,以前还想当然的以为不能复制的,毕竟在Edwin上粘贴用的Ctrl+Y,而不是Ctrl+V。在这里我就只将书上没有的代码贴出来了。
版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp
(define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var) (deriv (augend exp) var))) ((product? exp) (make-sum (make-product (multiplier exp) (deriv (multiplicand exp) var)) (make-product (deriv (multiplier exp) var) (multiiplicand exp)))) ((exponentiation? exp) (let ((n (exponent exp)) (u (base exp))) (make-product n (make-product (make-exponentiation u (- u 1)) (deriv u var))))) (else (error "unknown expression type -- DERIV" exp)))) (define (make-exponentiation base exponent) (cond ((= exponent 0) 1) ((= exponent 1) base) (else (list '** base exponent)))) (define (exponentiation? x) (and (pair? x) (eq? (car x) '**))) (define (base exp) (cadr exp)) (define (exponent exp) (caddr exp))
版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp
相关文章推荐
- android 代码实现控件之间的间距
- [Android]在代码里运行另一个程序的方法
- 肯特·贝克:改变人生的代码整理魔法
- 网页恶意代码的预防
- 高手写的Tracer-Flash代码调试类代码下载
- 风讯注入exp(hta版)代码发布
- oracle11gR2使用exp导出命令时报EXP-00011错误的解决方法
- CSS代码缩写技巧
- 非主流Q-zOne代码代码搜集第1/2页
- CreateWeb.vbs 代码
- Lua中编译执行代码相关的函数详解
- 微软Word 2007数学插件 Microsoft Math 提供下载
- Office Word九条常用技巧
- powershell操作word详解
- C#生成Word文档代码示例
- 用vbscript把 Word 文档保存为文本文件的代码
- C#根据Word模版生成Word文件
- C#采用OpenXml给Word文档添加表格
- C#实现合并多个word文档的方法
- ORACLE EXP不能导出空表的原因分析及解决方法