2013-04-14から1日間の記事一覧
[9]> (defun length$ (lst) (if (null lst) 0 (+ 1 (length$ (rest lst))))) LENGTH$ [10]> (length$ '(a b c)) 3 [11]> (trace length$) ;; Tracing function LENGTH$. (LENGTH$) [12]> (length$ '(a b c)) 1. Trace: (LENGTH$ '(A B C)) 2. Trace: (LENGTH…