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

yoyoho

麻烦高手检视下面程序有何问题
希望执行结果
(Q_1 h_lst "AA")---->回应 102
(Q_1 h_lst "BB")---->回应 200
(Q_1 h_lst "CC")---->回应 350
(Q_1 h_lst "DD")---->回应 500
(Q_1 h_lst "EE")---->回应 0   列表中"EE"不存在时回应 0


程序如下:
;;;(SETQ h_lst '((1.0 "AA" 102)(1.0 "BB" 200)(1.0 "CC" 350)(1.0 "DD" 550)))   
;;;(Q_1 h_lst "AA")                                                            
;;;回应 102                                                                    
;;;(Q_1 h_lst "EE")                                                            
;;;回应 102                                                                    
(defun Q_1 (LST WORD_T)                                                        
      (FOREACH x LST                                                           
             (if (= (NTH 1 x) WORD_T)                                          
                 (setq XX (NTH 2 x))                                          
                 ;(setq XX 0)             ;;假如我加了这一列,为何所有回应都为 0                                       
             )                                                                 
      )                                                                        
      XX                                                                       
)

cjrun

foreach 是历遍全表，所以xx 回應的每次foeach的最后一次值

;;;(SETQ h_lst '((1.0 "AA" 102)(1.0 "BB" 200)(1.0 "CC" 350)(1.0 "DD" 550)))
;;;(Q_1 h_lst "AA")
;;;回应 102
;;;(Q_1 h_lst "EE")
;;;回应 102
(defun Q_1 (LST WORD_T)
  (setq ct 0)
  (while (< ct (length LST))
    (setq x (nth ct LST))
    (if        (= (NTH 1 x) WORD_T)
      (setq XX (NTH 2 x)
            ct (1+ (length LST)) ;;在這里就跳出，foreach做不到
      )
      (setq XX 0
            ;;假如我加了这一列,为何所有回应都为 0
            ct (1+ ct)
      )
    )
  )
  XX
)

yoyoho

感谢楼主点醒梦中人
,不然我还在(WHILE...)中转阿转
头都晕了
,程序运行O.K.
,谢谢楼主.

陌生人

2. (defun xx (LST WORD_T)
   
3.   (vl-load-com)
   
4.   (IF (SETQ I (vl-position WORD_T  (mapcar 'cadr lst)))
   
5.     (last (nth I lst))
   
6.     0)
   
7. )
   
8. ;|
   
9. (SETQ h_lst '((1.0 "AA" 102)(1.0 "BB" 200)(1.0 "CC" 350)(1.0 "DD" 550)))
   
10. (xx h_lst "AA")---->回应 102
    
11. (xx h_lst "BB")---->回应 200
    
12. (xx h_lst "CC")---->回应 350
    
13. (xx h_lst "DD")---->回应 500
    
14. (xx h_lst "EE")---->回应 0
    
15. |;

(defun xx (LST WORD_T)<br />   (vl-load-com)<br />   (IF (SETQ I (vl-position WORD_T  (mapcar 'cadr lst)))<br />     (last (nth I lst))<br />     0)<br /> )<br /> ;|<br /> (SETQ h_lst '((1.0 "AA" 102)(1.0 "BB" 200)(1.0 "CC" 350)(1.0 "DD" 550))) <br /> (xx h_lst "AA")---->回应 102<br /> (xx h_lst "BB")---->回应 200<br /> (xx h_lst "CC")---->回应 350<br /> (xx h_lst "DD")---->回应 500<br /> (xx h_lst "EE")---->回应 0<br /> |;

yoyoho

呵呵!
感谢楼主回覆
很高兴看到不一样的写法.
程序很O.K.很好喔!