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 递归函数实现 斐波那契数列 Fibonacci
阅读 45
2022-06-20
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
                
                
相关推荐
精彩评论(0)