Lisp 递归函数实现
(defun fib (n)
(if (<= n 1)
1
(+ (fib (- n 1))
(fib (- n 2)))))
运行测试:
FIB
* (fib 10)
89
* (fib 20)
10946
* (fib 30)
1346269
* (fib 40)
165580141
微信扫一扫
Lisp 递归函数实现
(defun fib (n)
(if (<= n 1)
1
(+ (fib (- n 1))
(fib (- n 2)))))
运行测试:
FIB
* (fib 10)
89
* (fib 20)
10946
* (fib 30)
1346269
* (fib 40)
165580141
相关推荐