谁能解释下这几个函数?

77077

晕了晕了,不是说顶多4重运算么?

怎么会出现这个?

1. ;;; FIRST   - first element of the list
   
2. (defun first (x) (car x))
   
3. ;;; REST    - the rest of the list
   
4. (defun rest (x)  (cdr x))
   
5. ;;; Other readable accessors, the element or nil, better than nth
   
6. (defun second (lst) (cadr lst))
   
7. (defun third (lst)  (caddr lst))
   
8. (defun fourth (lst) (cadddr lst))
   
9. (defun fifth (lst)  (car (cddddr lst)))
   
10. ;|#- SMALL|;
    
11. (defun sixth (lst)  (cadr (cddddr lst)))
    
12. (defun seventh (lst)(caddr (cddddr lst)))
    
13. (defun eighth (lst) (cadddr (cddddr lst)))
    
14. (defun ninth (lst)  (car (cddddr (cddddr lst))))
    
15. (defun tenth (lst)  (car (cdr (cddddr (cddddr lst)))))
    
16. ;|END #- SMALL|;

;;; FIRST   - first element of the list<br /> (defun first (x) (car x))<br /> ;;; REST    - the rest of the list<br /> (defun rest (x)  (cdr x))<br /> ;;; Other readable accessors, the element or nil, better than nth<br /> (defun second (lst) (cadr lst))<br /> (defun third (lst)  (caddr lst))<br /> (defun fourth (lst) (cadddr lst))<br /> (defun fifth (lst)  (car (cddddr lst)))<br /> ;|#- SMALL|;<br /> (defun sixth (lst)  (cadr (cddddr lst)))<br /> (defun seventh (lst)(caddr (cddddr lst)))<br /> (defun eighth (lst) (cadddr (cddddr lst)))<br /> (defun ninth (lst)  (car (cddddr (cddddr lst))))<br /> (defun tenth (lst)  (car (cdr (cddddr (cddddr lst)))))<br /> ;|END #- SMALL|;

ZZXXQQ

这不过是按英语语法写的函数。从其函数名可以看出函数的含义，还要怎么解释。

ll_j

书上在ca..dr这部分所说的4重是指单一函数的c和r之间的重数，也就是说，单一函数的c和r之间最多只能有4个字符，每个字符代表一重，如(cadr x)=(car (cdr x))，最多4重这句话其实是同类的30个函数的“统一”说明，这些函数都是在AutoLISP的系统函数库中定义了的，可以直接使用。
上面定义的函数fifth，如果按单一函数的格式应该写为caddddr，超过4重，就只能重新定义。
就Lisp语言本身，嵌套的层数是由堆栈决定的，目前嵌套的层数可以接近2万层，而且已经定义成函数并被加载后，这个函数其实只占一层。

emk

(defun tenth (lst)  (car (cdr (cddddr (cddddr lst)))))-->(defun tenth (lst)  (nth 10 lst) ) ??

lsjj

有nth可用，真的不用搞的那麼複雜，
樓上的也算多此一舉吧!