리스트에서 순서 뽑기 기초

리스트에서 순서뽑기

((A B) (C D) (E F) (G H))

caar - A
cadar - B
caadr - C
cadadr - D
caaddr - E
cadr (caddr - F
car (cadddr - G
cadr (cadddr - H

car - (A B)
cadr - (C D)
caddr - (E F)
cadddr - (G H)

 

(defun c:xx ( / lst)
   (setq lst (list '(a b) '(c d) '(e f) '(g h)))
   (princ "\n")
   (princ (caar lst))
   (princ "\n")
   (princ (cadar lst))
   (princ "\n")
   (princ (caadr lst))
   (princ "\n")
   (princ (cadadr lst))
   (princ "\n")
   (princ (caaddr lst))
   (princ "\n")
   (princ (cadr (caddr lst)))
   (princ "\n")
   (princ (car (cadddr lst)))
   (princ "\n")
   (princ (cadr (cadddr lst)))
   (princ "\n")
   (princ (car lst))
   (princ "\n")
   (princ (cadr lst))
   (princ "\n")
   (princ (caddr lst))
   (princ "\n")
   (princ (cadddr lst))
   (princ)
)