[求助]有关于列表(函数)问题请教

ZZXXQQ

3. (defun Q_1 (LST WORD_T)
4. (SETQ j 0 k 0)
5. (while (and (/= (cadr (nth j lst)) word_t) (< j (length lst)))
6.   (setq j (1+ j))
7. )
8. (if (= (cadr (nth j lst)) word_t)
9.   (last (nth j lst))
10.   nil
11. )
12. )
13. ;这是另一种:
14. (defun Q_1 (lst word_t)
15. (setq j 0 k nil tl (length lst))
16. (while (< j tl)
17.   (if (= (cadr(nth j lst)) word_t)
18.    (setq k j j tl)
19.   )
20. )
21. (if k
22.   (last(nth k lst))
23.   k
24. )
25. )

(defun Q_1 (LST WORD_T) (SETQ j 0 k 0) (while (and (/= (cadr (nth j lst)) word_t) (< j (length lst)))   (setq j (1+ j)) ) (if (= (cadr (nth j lst)) word_t)   (last (nth j lst))   nil ) ) ;这是另一种: (defun Q_1 (lst word_t) (setq j 0 k nil tl (length lst)) (while (< j tl)   (if (= (cadr(nth j lst)) word_t)    (setq k j j tl)   ) ) (if k   (last(nth k lst))   k ) )

yoyoho

ZZXXQQ版主你好

,麻烦你检视下面程序运行有问题.谢谢你!

;这是另一种:
(defun Q_1 (lst word_t)
  (setq j 0 k nil tl (length lst))
  (while (< j tl)
   (if (= (cadr(nth j lst)) word_t)
    (setq k j j tl)
   )
  )
  (if k
   (last(nth k lst))
   k
  )
)

ZZXXQQ

少了一行：

3. ;这是另一种:
4. (defun Q_1 (lst word_t)
5.   (setq j 0 k nil tl (length lst))
6.   (while (< j tl)
7.    (if (= (cadr(nth j lst)) word_t)
8.     (setq k j j tl)
9. (setq j (1+ j))
10.    )
11.   )
12.   (if k
13.    (last(nth k lst))
14.    k
15.   )
16. )

;这是另一种: (defun Q_1 (lst word_t)   (setq j 0 k nil tl (length lst))   (while (< j tl)    (if (= (cadr(nth j lst)) word_t)     (setq k j j tl) (setq j (1+ j))    )   )   (if k    (last(nth k lst))    k   ) )

yoyoho

謝謝樓主

少了這行(setq j (1+ j))

所以無法離開(while...)