表数据分组统计的问题~

77077

按照自己的想法,参考大师的代码,自己写了一个,求大师批评,求大师精简~~~

1. (defun c:tt()
   
2. (setq lst1 '(("居住" "1431.05" "8586.30")
   
3.             ("居住" "1329.99" "7979.94")
   
4.             ("商业" "596.30" "1788.90")
   
5.             ("公共设施" "395.54" "791.08")
   
6.             ("其他" "365.70" "731.40")
   
7.             ("居住" "1311.85" "7871.10")
   
8.             ("居住" "1965.39" "11792.34")
   
9.             ("公共设施" "507.51" "1015.02")
   
10.             ("公共设施" "668.77" "1337.54")
    
11.             ("公共设施" "502.95" "1005.90")
    
12.             ("公共设施" "574.56" "1149.12")
    
13.             ("其他" "660.27" "1320.54")
    
14.             ))
    
15. (setq lstb '("居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他")
    
16.       i 0
    
17.       len (length lstb)
    
18.       lst2 '()
    
19.       lst3 '()
    
20.       )
    
21. (repeat len
    
22.    (setq a (nth i lstb))
    
23.    (setq lsti (vl-remove nil (mapcar '(lambda(x) (if (member a x) (append x lst2)) ) lst1)))
    
24.          (setq lst3 (cons lsti lst3))
    
25.    (setq i (1+ i))
    
26.    )
    
27. (princ lst3)
    
28. (princ)
    
29. )

(defun c:tt()<br /> (setq lst1 '(("居住" "1431.05" "8586.30")<br />             ("居住" "1329.99" "7979.94")<br />             ("商业" "596.30" "1788.90")<br />             ("公共设施" "395.54" "791.08")<br />             ("其他" "365.70" "731.40")<br />             ("居住" "1311.85" "7871.10")<br />             ("居住" "1965.39" "11792.34")<br />             ("公共设施" "507.51" "1015.02")<br />             ("公共设施" "668.77" "1337.54")<br />             ("公共设施" "502.95" "1005.90")<br />             ("公共设施" "574.56" "1149.12")<br />             ("其他" "660.27" "1320.54")<br />             ))<br /> (setq lstb '("居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他")<br />       i 0<br />       len (length lstb)<br />       lst2 '()<br />       lst3 '()<br />       )<br /> (repeat len<br />    (setq a (nth i lstb))<br />    (setq lsti (vl-remove nil (mapcar '(lambda(x) (if (member a x) (append x lst2)) ) lst1)))<br />          (setq lst3 (cons lsti lst3))<br />    (setq i (1+ i))<br />    )<br /> (princ lst3)<br /> (princ)<br /> )

77077

(mapcar'(lambda(n m)
(list
m
(rtos (apply '+ (mapcar '(lambda(x) (atof (cadr x))) n)) 2 2)
(rtos (apply '+ (mapcar '(lambda(x) (atof (caddr x))) n)) 2 2)
)
)
(reverse lst3)
lstb
)
我也计算出来了~嘿嘿~
(
("居住" "6038.28" "36229.68")
("宾馆饭店" "0.00" "0.00")
("商业" "596.30" "1788.90")
("金融" "0.00" "0.00")
("办公" "0.00" "0.00")
("娱乐" "0.00" "0.00")
("厂房" "0.00" "0.00")
("公共设施" "2649.33" "5298.66")
("其他" "1025.97" "2051.94")
)