请教表处理问题，合并子表

xujinhua

(setq list1 '(("水泥路" "15.80平方米" "" "" "" "厚度为1m") ("水泥路" "22.00平方米" "" "" "" "无厚度")("水泥路" "62.00平方米" "" "" "" "无厚度")
       ("水泥路" "100.00平方米" "" "" "" "无厚度")
  ("女儿墙" "6.85平方米" "8.05米" "0.85米" "0.12米" "有顶")("女儿墙" "22.00平方米" "8.05米" "0.85米" "0.12米" "有顶")))

;子表的0、3、4、5相同，则2相加返回新表list2
(setq list2 '(("水泥路" "15.80平方米" "" "" "" "厚度为1m") ("水泥路" "84.00平方米" "" "" "" "无厚度")
       ("女儿墙" "28.85平方米" "8.05米" "0.85米" "0.12米" "有顶")))


谢谢各位！

vitalgg

第二个元素没有用算法提取单位，均按 平方米 考虑。

1. (setq list1 '(("水泥路" "15.80平方米" "" "" "" "厚度为1m")
   
2.               ("水泥路" "22.00平方米" "" "" "" "无厚度")
   
3.               ("水泥路" "62.00平方米" "" "" "" "无厚度")
   
4.               ("水泥路" "100.00平方米" "" "" "" "无厚度")
   
5.               ("女儿墙" "6.85平方米" "8.05米" "0.85米" "0.12米" "有顶")
   
6.               ("女儿墙" "22.00平方米" "8.05米" "0.85米" "0.12米" "有顶")))
   
7. 
   
8. (defun union-lst (list1 / list2)
   
9.   (setq list2 '())
   
10.   (foreach x% list1
    
11.            (if (member (cons (car x%) (cdddr x%))  (mapcar '(lambda (x) (cons (car x) (cdddr x)))  list2))
    
12.                (progn
    
13.                  (foreach at% list2
    
14.                           (if (equal (cons (car x%) (cdddr x%))
    
15.                                      (cons (car at%) (cdddr at%)))
    
16.                               (progn
    
17.                                 (setq list2 (subst (append (list (car x%)
    
18.                                                                  (strcat (rtos (+ (atof (nth 1 x%)) (atof (nth 1 at%))) 2 2) "平方米")
    
19.                                                                  (nth 2 x%))
    
20.                                                            (cdddr x%))
    
21.                                                    at%
    
22.                                                    list2)))
    
23.                               )
    
24.                           
    
25.                           ))
    
26.              (progn
    
27.                (setq list2 (append list2 (list x%)))))
    
28.            )
    
29.   list2
    
30.   )
    
31. (print (union-lst list1))
    
32. (princ)
    

(setq list1 '(("水泥路" "15.80平方米" "" "" "" "厚度为1m")<br />               ("水泥路" "22.00平方米" "" "" "" "无厚度")<br />               ("水泥路" "62.00平方米" "" "" "" "无厚度")<br />               ("水泥路" "100.00平方米" "" "" "" "无厚度")<br />               ("女儿墙" "6.85平方米" "8.05米" "0.85米" "0.12米" "有顶")<br />               ("女儿墙" "22.00平方米" "8.05米" "0.85米" "0.12米" "有顶")))<br /> <br /> (defun union-lst (list1 / list2)<br />   (setq list2 '())<br />   (foreach x% list1<br />            (if (member (cons (car x%) (cdddr x%))  (mapcar '(lambda (x) (cons (car x) (cdddr x)))  list2))<br />                (progn<br />                  (foreach at% list2<br />                           (if (equal (cons (car x%) (cdddr x%))<br />                                      (cons (car at%) (cdddr at%)))<br />                               (progn<br />                                 (setq list2 (subst (append (list (car x%)<br />                                                                  (strcat (rtos (+ (atof (nth 1 x%)) (atof (nth 1 at%))) 2 2) "平方米")<br />                                                                  (nth 2 x%))<br />                                                            (cdddr x%))<br />                                                    at%<br />                                                    list2)))<br />                               )<br />                           <br />                           ))<br />              (progn<br />                (setq list2 (append list2 (list x%)))))<br />            )<br />   list2<br />   )<br /> (print (union-lst list1))<br /> (princ)<br />

etoxp

要做两个工作：
1.搜索。
2.数据再整理。

用cons来组织数据，再用assoc可能会方便点。

xujinhua

vitalgg 发表于 2021-3-5 23:51
第二个元素没有用算法提取单位，均按 平方米 考虑。

太感谢你了！！！我慢慢再学习下

xujinhua

etoxp 发表于 2021-3-5 22:58
要做两个工作：
1.搜索。
2.数据再整理。

谢谢，我也要学着。。。。

czb203

谢谢，我也要学着。。。。