表数据分组统计的问题~

77077

假如有一建筑物数据组
;(建筑类型 基底面积 建筑面积)
(setq lst '(
("居住" "1431.05" "8586.30")
("居住" "1329.99" "7979.94")
("商业" "596.30" "1788.90")
("公共设施" "395.54" "791.08")
("其他" "365.70" "731.40")
("居住" "1311.85" "7871.10")
("居住" "1965.39" "11792.34")
("公共设施" "507.51" "1015.02")
("公共设施" "668.77" "1337.54")
("公共设施" "502.95" "1005.90")
("公共设施" "574.56" "1149.12")
("其他" "660.27" "1320.54")
))
如何将他们按照建筑类型进行分组,并统计出总基底面积和总建筑面积?
下面每项都要有数值,如果没有此类建筑,总和为0?
(setq lstb '("居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他"))

最终统计出来的数据表可能是是((居住  总基底面积 总建筑面积) (宾馆饭店  总基底面积 总建筑面积) (商业  总基底面积 总建筑面积) ....)这种格式.

77077

结合高手给的思路,编写完成

2. (defun c:tt()
   
3. (setq lst1 '(("居住" "1431.05" "8586.30")
   
4.                ("居住" "1329.99" "7979.94")
   
5.                ("商业" "596.30" "1788.90")
   
6.                ("公共设施" "395.54" "791.08")
   
7.                ("其他" "365.70" "731.40")
   
8.                ("居住" "1311.85" "7871.10")
   
9.                ("居住" "1965.39" "11792.34")
   
10.                ("公共设施" "507.51" "1015.02")
    
11.                ("公共设施" "668.77" "1337.54")
    
12.                ("公共设施" "502.95" "1005.90")
    
13.                ("公共设施" "574.56" "1149.12")
    
14.                ("其他" "660.27" "1320.54")
    
15.               )
    
16.       lstb '("居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他")
    
17.       lst2 '())
    
18. ;表分组
    
19. (setq lst2
    
20.    (mapcar '(lambda(x y)
    
21.      (cons y (vl-remove nil
    
22.          (mapcar '(lambda(x)
    
23.                     (if (member y x) (append x lst2))
    
24.                  )
    
25.             lst1
    
26.             )
    
27.             )
    
28.         )
    
29.     )
    
30.      lst1 lstb
    
31.      )
    
32.   )
    
33. ;分组求和
    
34. (mapcar '(lambda (x)
    
35.             (if (setq b (cdr x)
    
36.                      c (rtos (apply '+ (mapcar 'atof (mapcar 'cadr b)))2 2)
    
37.                      d (rtos (apply '+ (mapcar 'atof (mapcar 'caddr b)))2 2)
    
38.                      )
    
39.               (list (car x) c d)
    
40.             (list (car x) "0" "0")
    
41.             )
    
42.           )
    
43.          lst2
    
44.    )
    
45. )

(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 />       lstb '("居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他")<br />       lst2 '())<br /> ;表分组<br /> (setq lst2 <br />    (mapcar '(lambda(x y) <br />      (cons y (vl-remove nil <br />          (mapcar '(lambda(x)<br />                     (if (member y x) (append x lst2))<br />                  )<br />             lst1<br />             )<br />             )<br />         )<br />     )<br />      lst1 lstb<br />      )<br />   )<br /> ;分组求和<br /> (mapcar '(lambda (x)<br />             (if (setq b (cdr x)<br />                      c (rtos (apply '+ (mapcar 'atof (mapcar 'cadr b)))2 2)<br />                      d (rtos (apply '+ (mapcar 'atof (mapcar 'caddr b)))2 2)<br />                      )<br />               (list (car x) c d)<br />             (list (car x) "0" "0")<br />             )<br />           )<br />          lst2<br />    )<br /> )

测试结果:
命令: tt
(("居住" "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"))

xyp1964

(("公共设施" 2649.33 5298.66) ("居住" 6038.28 36229.7) ("其他" 1025.97 2051.94) ("商业" 596.3 1788.9))

2. (setq lst  '(("居住" "1431.05" "8586.30")             ("居住" "1329.99" "7979.94")
   
3.              ("商业" "596.30" "1788.90")
   
4.              ("公共设施" "395.54" "791.08")
   
5.              ("其他" "365.70" "731.40")
   
6.              ("居住" "1311.85" "7871.10")
   
7.              ("居住" "1965.39" "11792.34")
   
8.              ("公共设施" "507.51" "1015.02")
   
9.              ("公共设施" "668.77" "1337.54")
   
10.              ("公共设施" "502.95" "1005.90")
    
11.              ("公共设施" "574.56" "1149.12")
    
12.              ("其他" "660.27" "1320.54")
    
13.             )
    
14.       lst (xyp-count1(vl-sort lst'(lambda(x y)(<(car x)(car y)))))
    
15.       lst (mapcar '(lambda (x)
    
16.                       (setq b(cdr x)
    
17.                             c(apply '+(mapcar'distof(mapcar'car b)))
    
18.                             d(apply '+(mapcar'distof(mapcar'cadr b)))
    
19.                       )
    
20.                       (list(car x) c d)
    
21.                     )
    
22.                    lst
    
23.            )
    
24. )

(setq lst  '(("居住" "1431.05" "8586.30")             ("居住" "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 />       lst (xyp-count1(vl-sort lst'(lambda(x y)(<(car x)(car y)))))<br />       lst (mapcar '(lambda (x)<br />                       (setq b(cdr x)<br />                             c(apply '+(mapcar'distof(mapcar'car b)))<br />                             d(apply '+(mapcar'distof(mapcar'cadr b)))<br />                       )<br />                       (list(car x) c d)<br />                     )<br />                    lst<br />            )<br /> )

77077

没错,就是要这样的,不过院长的好像少了些东西,例如:
("娱乐" "0" "0")

最好能按 lstb里面的顺序排列,没有的就0表示~

77077

院长写的(apply '+ (mapcar 'distof (mapcar 'cadr b)))
我写的(apply '+ (mapcar '(lambda(x) (atof (cadr x))) lst))
晕了晕了~

wowan1314

这个是个体力活！

喜欢这样的代码，看着很漂亮！


(("居住" 6038.28 36229.7) ("宾馆饭店" "0" "0") ("商业" 596.3 1788.9) ("金融"
"0" "0") ("办公" "0" "0") ("娱乐" "0" "0") ("厂房" "0" "0") ("公共设施" 2649.33
5298.66) ("其他" 1025.97 2051.94))

2. (defun t11 (l ll)
   
3.     (mapcar
   
4.         '(lambda(a b)
   
5.             (if (= a (car b))
   
6.                 b
   
7.                 (cons a
   
8.                     (eval
   
9.                         (cons 'mapcar
   
10.                             (cons ''+
    
11.                                 (mapcar
    
12.                                     '(lambda(x)
    
13.                                         (cons 'list x)
    
14.                                     )
    
15.                                     b
    
16.                                 )
    
17.                             )
    
18.                         )
    
19.                     )
    
20.                 )
    
21.             )
    
22.         )
    
23.         ll
    
24.         (mapcar
    
25.             '(lambda(x)
    
26.                 (if (assoc x l)
    
27.                     (mapcar
    
28.                         '(lambda(y)
    
29.                             (if (= x (car y))
    
30.                                 (mapcar 'atof (cdr y))
    
31.                                 '(0 0)
    
32.                             )
    
33.                         )
    
34.                         l
    
35.                     )
    
36.                     (list x "0" "0")
    
37.                 )
    
38.             )
    
39.             ll
    
40.         )
    
41.     )
    
42. )

(defun t11 (l ll) <br />     (mapcar<br />         '(lambda(a b)<br />             (if (= a (car b))<br />                 b<br />                 (cons a<br />                     (eval<br />                         (cons 'mapcar<br />                             (cons ''+<br />                                 (mapcar<br />                                     '(lambda(x)<br />                                         (cons 'list x)<br />                                     )<br />                                     b<br />                                 )<br />                             )<br />                         )<br />                     )<br />                 )<br />             )<br />         )<br />         ll<br />         (mapcar<br />             '(lambda(x)<br />                 (if (assoc x l)<br />                     (mapcar<br />                         '(lambda(y)<br />                             (if (= x (car y))<br />                                 (mapcar 'atof (cdr y))<br />                                 '(0 0)<br />                             )<br />                         )<br />                         l<br />                     )<br />                     (list x "0" "0")<br />                 )<br />             )<br />             ll<br />         )<br />     )<br /> )

77077

hoho~~~
我估计也是个体力活，这么多mapcar。
明天测试下看看。

77077

可不可以换种思路解题
setq将（"居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他"）中的每一个设置成空数据，如：(setq lst1 '("居住"  “0” “0”) lst2 '("宾馆饭店"  “0” “0”)...)
然后顺序读取 lst 中的每一项，分别取出(cadr)(caddr)加到对应的表中，最后将表合并起来组成最终的表~

坏处是借用一大堆的lst1...lstn,可能会影响效率~

xyp1964

77077 发表于 2014-8-6 21:49
可不可以换种思路解题
setq将（"居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他" ...

结果：
(("居住" 6038.28 36229.7)
  ("宾馆饭店" 0 0)
  ("商业" 596.3 1788.9)
  ("金融" 0 0)
  ("办公" 0 0)
  ("娱乐" 0 0)
  ("厂房" 0 0)
  ("公共设施" 2649.33 5298.66)
  ("其他" 1025.97 2051.94)
)

2. (defun c:tt ()
   
3.   (setq lst1 '(("居住" "1431.05" "8586.30")
   
4.                ("居住" "1329.99" "7979.94")
   
5.                ("商业" "596.30" "1788.90")
   
6.                ("公共设施" "395.54" "791.08")
   
7.                ("其他" "365.70" "731.40")
   
8.                ("居住" "1311.85" "7871.10")
   
9.                ("居住" "1965.39" "11792.34")
   
10.                ("公共设施" "507.51" "1015.02")
    
11.                ("公共设施" "668.77" "1337.54")
    
12.                ("公共设施" "502.95" "1005.90")
    
13.                ("公共设施" "574.56" "1149.12")
    
14.                ("其他" "660.27" "1320.54")
    
15.               )
    
16.         lst2 '("居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他")
    
17.         lst3 (mapcar '(lambda (x) (list x)) lst2)
    
18.   )
    
19.   (foreach a lst1
    
20.     (setq name (car a)
    
21.           nn (- (length lst2) (length (member name lst2)))
    
22.           i -1
    
23.           lst3 (mapcar '(lambda (x)
    
24.                           (setq i (1+ i))
    
25.                           (if (= i nn)(cons (cdr a) x)x)
    
26.                         )
    
27.                        lst3
    
28.                )
    
29.     )
    
30.   )
    
31.   (mapcar '(lambda (x)
    
32.              (setq b (cdr x)
    
33.                    c (apply '+ (mapcar 'distof (mapcar 'car b)))
    
34.                    d (apply '+ (mapcar 'distof (mapcar 'cadr b)))
    
35.              )
    
36.              (list (car x) c d)
    
37.            )
    
38.           (mapcar 'reverse lst3)
    
39.   )
    
40. )

(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 />         lst2 '("居住" "宾馆饭店" "商业" "金融" "办公" "娱乐" "厂房" "公共设施" "其他")<br />         lst3 (mapcar '(lambda (x) (list x)) lst2)<br />   )<br />   (foreach a lst1<br />     (setq name (car a)<br />           nn (- (length lst2) (length (member name lst2)))<br />           i -1<br />           lst3 (mapcar '(lambda (x)<br />                           (setq i (1+ i))<br />                           (if (= i nn)(cons (cdr a) x)x)<br />                         )<br />                        lst3<br />                )<br />     )<br />   )<br />   (mapcar '(lambda (x)<br />              (setq b (cdr x)<br />                    c (apply '+ (mapcar 'distof (mapcar 'car b)))<br />                    d (apply '+ (mapcar 'distof (mapcar 'cadr b)))<br />              )<br />              (list (car x) c d)<br />            )<br />           (mapcar 'reverse lst3)<br />   )<br /> )

wowan1314

这个院长的！

还是觉的mapcar 叠一起好看！ 哈哈