리스트에서 순서뽑기

((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)
)

 

저작자 표시 비영리 동일 조건 변경 허락
신고

'CAD > Lisp' 카테고리의 다른 글

grread 옵션 정리  (0) 2014.11.10
SSGET 사용법 정리  (0) 2014.11.07
리스트에서 순서 뽑기 기초  (0) 2014.10.27
(mapcar) 와 (lambda)  (0) 2014.10.25
Entmake 할 때, 객체별 요구리스트 정리  (0) 2014.10.25
켜 생성  (0) 2014.10.11

+ Recent posts