admin管理员组

文章数量:1794759

使用 Lisp 递归函数实现 斐波那契数列 Fibonacci

使用 Lisp 递归函数实现 斐波那契数列 Fibonacci

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

本文标签: 递归数列函数LispFibonacci