Lisp プログラミング 第３回

第９章　課題

演習１： 第２回・第７章・演習２と５で定義したrevとrev2の動作をtraceして調べなさい。

(defun rev (x)
    (cond ((null x) nil)
          (t (append (rev (cdr x)) (list (car x))))))


(defun rev2 (x)
    (rev2-sub x nil))

(defun rev2-sub (x y)
    (cond ((null (cdr x)) (cons (car x) y))
          (t (rev2-sub (cdr x) (cons (car x) y)))))