怎么构造关联表

龙城飞将36

2. ;(fget 'A 'B 'C "数据函数名")
   
3. (defun fget (fr sl fa lname) ;/ lh lst j nn)
   
4.   (setq lh  (car (eval(read lname)));分离表头
   
5.         lst (cadr(eval(read lname)));分离框架
   
6.         j   -1)
   
7.   (setq lst (cadr(assoc fa (cadr (assoc sl
   
8.             (cadr(assoc fr lst)))))));检索
   
9.   (repeat (length lh)
   
10.     (setq j (1+ j) nn (nth j lh))
    
11.     (set nn (nth j lst))             ;将检索值给相应表头
    
12.   )
    
13.   lst                                ;返回值
    
14.   )

;(fget 'A 'B 'C "数据函数名")<br /> (defun fget (fr sl fa lname) ;/ lh lst j nn)<br />   (setq lh  (car (eval(read lname)));分离表头<br />         lst (cadr(eval(read lname)));分离框架<br />         j   -1)<br />   (setq lst (cadr(assoc fa (cadr (assoc sl<br />             (cadr(assoc fr lst)))))));检索<br />   (repeat (length lh)<br />     (setq j (1+ j) nn (nth j lh))<br />     (set nn (nth j lst))             ;将检索值给相应表头<br />   )<br />   lst                                ;返回值<br />   )

怎么构造data3关联表，使检索表函数运行

ZZXXQQ

2. (setq dlist
   
3. '((A ((B ((05B (8.0 5.64 5.00 2.31))
   
4.           (06B (9.525 10.24 6.35 3.28))
   
5.           (08B (12.7 13.92 8.51 4.45))
   
6.           (08A (12.7 14.38 7.95 3.96))
   
7.           (10A (15.875 18.11 10.16 5.08))
   
8.          )
   
9.      ))
   
10. ))
    
11. )
    

(setq dlist<br /> '((A ((B ((05B (8.0 5.64 5.00 2.31))<br />           (06B (9.525 10.24 6.35 3.28))<br />           (08B (12.7 13.92 8.51 4.45))<br />           (08A (12.7 14.38 7.95 3.96))<br />           (10A (15.875 18.11 10.16 5.08))<br />          )<br />      ))<br /> ))<br /> )<br />