作者 Anonymous [lisp] 2012-03-13 14:50 (点击下载)

  1. (defun l-length (lst)
  2.   (let ((counter
  3. 	 (let ((count 0))
  4. 	   (lambda (x)
  5. 	     (if (eq x 'count)
  6. 		 count
  7. 		 (progn
  8. 		   (incf count)
  9. 		   t))))))
  10.     (mapc counter lst)
  11.     (funcall counter 'count)))
  12.

提交下面的校正或者修改. (点击这里开始一个新的帖子)
姓名: 在 cookie 中记住我的名字

屏幕抓图:(jpeg 或 png)