https://tonybai.com/2011/08/05/some-experience-of-common-lisp-beginner/ 一个程序员的心路历程 Wed, 25 Mar 2026 09:21:20 +0000 hourly 1 http://wordpress.org/?v=3.2.1 https://tonybai.com/2011/08/05/some-experience-of-common-lisp-beginner/#comment-514 刘保华 Tue, 10 Jan 2012 21:44:41 +0000 http://tonybai.com/2011/08/05/common-lisp%e5%88%9d%e5%ad%a6%e7%82%b9%e6%bb%b4/#comment-514 GNU CLISP 2.49和LispWorks 6.0.1中 结果都是0呀，你试试。 (car '(nil 1 2 3))结果为nil,所以在你的版本中就直接返回0 不会就如递归的 GNU CLISP 2.49和LispWorks 6.0.1中
结果都是0呀，你试试。
(car ‘(nil 1 2 3))结果为nil,所以在你的版本中就直接返回0
不会就如递归的

]]> https://tonybai.com/2011/08/05/some-experience-of-common-lisp-beginner/#comment-515 刘保华 Tue, 10 Jan 2012 13:26:29 +0000 http://tonybai.com/2011/08/05/common-lisp%e5%88%9d%e5%ad%a6%e7%82%b9%e6%bb%b4/#comment-515 更简洁的写法： (defun summit-apply (lst) (apply #'+ (remove nil lst))) 你的版本有的问题,(nil 1 2 3)直接返回0 (defun summit-rec (lst) (if lst (+ (or (car lst) 0) (summit-rec (cdr lst))) 0)) 更简洁的写法：
(defun summit-apply (lst)
(apply #’+ (remove nil lst)))
你的版本有的问题,(nil 1 2 3)直接返回0
(defun summit-rec (lst)
(if lst
(+ (or (car lst) 0) (summit-rec (cdr lst)))
0))

]]> https://tonybai.com/2011/08/05/some-experience-of-common-lisp-beginner/#comment-516 Claud Xiao Thu, 27 Oct 2011 21:37:26 +0000 http://tonybai.com/2011/08/05/common-lisp%e5%88%9d%e5%ad%a6%e7%82%b9%e6%bb%b4/#comment-516 括号外面加括号的方法是，把光标移动到括号上，然后输入 ,W 括号外面加括号的方法是，把光标移动到括号上，然后输入 ,W

]]> https://tonybai.com/2011/08/05/some-experience-of-common-lisp-beginner/#comment-517 gugu Wed, 10 Aug 2011 16:03:21 +0000 http://tonybai.com/2011/08/05/common-lisp%e5%88%9d%e5%ad%a6%e7%82%b9%e6%bb%b4/#comment-517 lisp学起来麻烦么？几乎没学过编程的小白飘过。 lisp学起来麻烦么？几乎没学过编程的小白飘过。

]]>