牛顿法求平方根
2016-07-07 07:42
501 查看
牛顿法求平方根
common lisp实现(defun square (x) (* x x) ) (defun abs (x) (if (< x 0) (- x) x ) ) (defun good-enough? (guess x) (< (abs (- (square guess) x)) 0.001) ) (defun average (x y) (/ (+ x y) 2) ) (defun improve (guess x) (average guess (/ x guess)) ) (defun sqrt-iter (guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x) ) ) (defun sqrt (x) (sqrt-iter 1.0 x) ) (sqrt 10)
相关文章推荐
- 用Python编写一个简单的Lisp解释器的教程
- Windows下Lisp环境配置
- 生活在REPL中,工具与程序一体
- 我以为的函数式编程
- 在Ubuntu12.04上的Common Lisp开发环境配置
- OSX 10.09上的common lisp环境搭建
- 创造者的鉴赏力[转]
- 你需要掌握的三种编程语言
- Common Lisp 学习书目
- Beginning of Learning LISP.
- Begining Of Learning LISP (2)
- 毕业三年,新目标
- The hundred-year language - Paul Graham
- C++之路
- CCL(Clozure Common Lisp)环境搭建
- Python中的lambda介绍
- 学会开放性的思维
- Blog开张首记!
- on-lisp要点(一)
- 中国Ruby好荒凉啊........支持Ruby