by shigemk2

当面は技術的なことしか書かない

2013-04-14から1日間の記事一覧

対話によるCommon Lisp入門 31 再帰でlength

[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…