2008-04-13 Ex3.9 reduceを使ってlengthを定義 PAIP Common Lisp reduceを使って、リストの長さを求める問題です。 SBCLの場合ignoreをつけないと、コンパイラに文句を言われました。 ;;; Exercise 3.9 [m] White a version of length using the function ;;; reduce. (defun my-length (list) "リストの長さを求める。reduce版" (reduce #'(lambda (sum elem) (declare (ignore elem)) (1+ sum)) list :initial-value 0))