用Lisp语言实现Fibonacci数列
来源:互联网 发布:office365激活软件 编辑:程序博客网 时间:2024/05/17 02:53
我们知道Fibonacci数列的第n个数为F(n) = F(n-1) + F(n-2), F(0) = 0, F(1) = 1。这里,我们数组的下标从0开始。
用Lisp实现求F(n),它有两种求法:递归和非递归。如果是递归的话,当n=50以上就非常慢了。
(defun fib (n) ;calculate the Fibonacci list at pos n (do ((i 0 (1+ i)) (cur 0 next) (next 1 (+ cur next))) ((= n i) cur)))(defun fib-rec (n) ;Fibonacci list at pos n with recursion form (if (= 0 n) 0 (if (= 1 n) 1 (+ (fib-rec (- n 2)) (fib-rec (- n 1))))))
C-c C-c编译后运行结果如下:
- 用Lisp语言实现Fibonacci数列
- fibonacci数列C++语言多种实现
- fibonacci数列C++语言多种实现
- 用递归实现Fibonacci数列
- c语言Fibonacci数列
- Fibonacci数列的实现
- oracle实现fibonacci数列
- Fibonacci数列的实现
- Fibonacci数列 递归实现
- python 实现Fibonacci数列
- 实现Fibonacci数列
- fibonacci数列 java实现
- Fibonacci数列实现
- 学习C/C++语言:用数组处理Fibonacci数列
- c语言:用数组来处理求Fibonacci数列问题
- 递归实现 三角数列 Fibonacci数列 汉诺塔
- Java代码实现Fibonacci数列
- 使用nasm实现Fibonacci数列
- 负载均衡服务器session共享的解决方案
- Linux_描述符表和描述符高速缓存
- 学习笔记—JavaScript的String对象
- 金庸登龙术
- linux 里 重启 和停止 mysql的原理
- 用Lisp语言实现Fibonacci数列
- 【数据结构与算法之查找算法二】二分查找
- HDU OJ 4505 小Q系列故事——电梯里的爱情
- ASP.NET中进行消息处理(MSMQ)
- AutoHotKey的配置文件
- POJ1035Spell checker
- javascript之数组
- 数据库正常关闭下controfile丢失,rman的恢复
- apache 虚拟目录配置[Ubuntu]