http://userweb.cs.utexas.edu/users/moore/publications/tutorial/rev3.html#slide0
を見て。
(defun rev (x) (if (endp x) nil (append (rev (cdr x)) (list (car x)))))
(defn rev [x] (if (empty? x) nil (concat (rev (rest x)) (list (first x)))))
http://userweb.cs.utexas.edu/users/moore/publications/tutorial/rev3.html#slide0
を見て。
(defun rev (x) (if (endp x) nil (append (rev (cdr x)) (list (car x)))))
(defn rev [x] (if (empty? x) nil (concat (rev (rest x)) (list (first x)))))