Using Fixpoint to Solve Mathmatic Equation ( 无限float运算的扩展 fixpoint style)
来源:互联网 发布:查看淘宝客pid 编辑:程序博客网 时间:2024/05/22 15:52
(defun fixpoint ( x y)
(funcall y (funcall x x y) )
)
(setq fun (fixpoint 'fixpoint
(lambda (s)
(lambda ( f check init result)
(if (funcall check (funcall f init) init )
result
(progn
(print init)
(print result)
(funcall s f check (funcall f init) (+ result init) )
)
)
)
)
)
)
(funcall fun (lambda(x)(/ x 2 ) )
(lambda (x y)(if (< (abs (- x y)) (/ 1 1000000) ) t nil)) 1 0)
(funcall fun (lambda(x)(/ x 2 ) )
(lambda (x y)(if (< (abs (- x y)) (/ 1 1000000) ) t nil)) 2 0)
(funcall fun (lambda(x)(/ x 2 ) )
(lambda (x y)(if (< (abs (- x y)) (/ 1 1000000) ) t nil)) 3 0)
- Using Fixpoint to Solve Mathmatic Equation ( 无限float运算的扩展 fixpoint style)
- Using Fixpoint to Solve Mathmatic Equation ( 无限float运算的扩展 stream style)
- Using Fixpoint to Solve Mathmatic Equation ( x= sin x fixpoint style)
- Using Fixpoint to Solve Mathmatic Equation ( x= sin x)
- fixpoint
- Lift ( Using FIXPOINT implement yin_yang puzzle)
- Lift ( Using FIXPOINT implement yin_yang puzzle 2结果同上)
- 无限float运算
- Solve equation
- Solve equation
- Solve equation
- Solve equation
- Solve equation
- FZOJ2102:Solve equation
- FZU 2102 Solve equation
- FZU 2102 Solve equation
- FZU - 2102 Solve equation
- FZU-2102-Solve equation
- Visual Studio 2008配置DDK驱动开发环境
- Android _ UBOOT分析(一)
- OpenCV实例:Canny边缘检测
- 使用 Eclipse 开发 J2EE 应用--(下载、安装和配置)
- JQuery提交Ajax请求
- Using Fixpoint to Solve Mathmatic Equation ( 无限float运算的扩展 fixpoint style)
- [Haskell] ex1
- 关于单位内部两个局域网的配置
- man of grep
- 习语言1.62版本发布
- OGRE中Demo_Water资源文件分析
- FM 与 AM的区别
- 未来的移动用户体验——增强现实
- Hibernate