1.5 reverse

reverse�����`�����@�������������������@���l�����������D

1. append���g�����o�[�X

   > (defun rev (n)
     (cond
      ((null n) nil)
      (t (append (rev (cdr n)) (list (car n))))))
   rev
   > (rev '(1 2 3))
   (3 2 1)
   

2. let, while���g�����o�[�X

   > (defun rev2 (n)
     (let (res)
       (while n
         (setq res (cons (car n) res))
         (setq n (cdr n)))
       res))
   rev2
   > (rev2 '(1 2 3))
   (3 2 1)
   

3. &aux, dolist���g�����o�[�X
4. do���g�����o�[�X1,2
5. �����������g�����o�[�X
6. &optional���g�����o�[�X
7. prog���g�����o�[�X