【已解决】请教如何查找多重表中的元素

xyz002 · 发表于 2018-7-12 19:30:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 xyz002 于 2018-7-13 11:26 编辑

有这样一个多重表lst，表中如 "e1"代表编号，((0 0) (3 0) (3 2) (0 2))代表一组坐标值(x y)。
(setq lst
      '(
            ("e1" ((0 0) (3 0) (3 2) (0 2)) "f2" "s1")       ;第一组
            ("e2" ((2 6) (3 6) (3 3) (2 3)) "f4" "s2")       ;第二组
            ("e3" ((3 2) (5 2) (5 0) (3 0)) "f2" "s3")       ;第三组
            ("e4" ((3 7) (6 7) (6 8) (3 8)) "f1" "s4")       ;第四组
            ("e5" ((3 6) (6 6) (6 3) (3 3)) "f4" "s5")       ;第五组
            ("e6" ((3 8) (6 8) (6 9) (3 9)) "f1" "s6")       ;第六组
      )
)
查找条件：
1. 每组坐标中有两个点的坐标值相同，如第一组((0 0) (3 0) (3 2) (0 2))和第三组((3 2) (5 2) (5 0) (3 0)) 有两个点坐标一样 (3 0) (3 2)
2. 满足上述条件的每组这两个点的x坐标相等，如(3 0) (3 2) 中的x坐标都为3
3. 第一重子表的第3个元素相同，如第一组的"f2" 和第三组的"f2"

返回值：满足上面3个条件的两两配对的编号，如(("e1" "e3") ("e2" "e4"))

请问有什么方法能实现？代码该如何写？

marting · 发表于 2018-7-13 00:05:13

(defun abc ()
(setq lst '(("e1" ((0 0) (3 0) (3 2) (0 2)) "f2" "s1") ;第一组
("e2" ((2 6) (3 6) (3 3) (2 3)) "f4" "s2") ;第二组
("e3" ((3 2) (5 2) (5 0) (3 0)) "f2" "s3") ;第三组
("e4" ((3 7) (6 7) (6 8) (3 8)) "f1" "s4") ;第四组
("e5" ((3 6) (6 6) (6 3) (3 3)) "f4" "s5") ;第五组
("e6" ((3 8) (6 8) (6 9) (3 9)) "f1" "s6") ;第六组
)
)
(setq ret nil)
(while (setq lst1 (cdr lst))
(setq item (car lst)
key1 (cadr item)
key2 (caddr item)
)
(while lst1
(setq item2 (car lst1)
val1 (cadr item2)
val2 (caddr item2)
)
(setq i 0)
(vl-some
'(lambda (x)
(setq vlst nil)
(if (member x key1)
(setq i (1+ i)
temp (cons x temp)
)
)
(if (= 2 i)
(progn (if (and (= (car (nth 0 temp)) (car (nth 1 temp)))
(= key2 val2)
)
(setq vlst (list (car item) (car item2))
ret (cons vlst ret)
)
)
t
)
)
)
val1
)
(setq lst1 (cdr lst1))
)
(setq lst (cdr lst))
)
(reverse ret)
)

(defun abc () 
  (setq        lst '(("e1" ((0 0) (3 0) (3 2) (0 2)) "f2" "s1") ;第一组 
              ("e2" ((2 6) (3 6) (3 3) (2 3)) "f4" "s2") ;第二组 
              ("e3" ((3 2) (5 2) (5 0) (3 0)) "f2" "s3") ;第三组 
              ("e4" ((3 7) (6 7) (6 8) (3 8)) "f1" "s4") ;第四组 
              ("e5" ((3 6) (6 6) (6 3) (3 3)) "f4" "s5") ;第五组 
              ("e6" ((3 8) (6 8) (6 9) (3 9)) "f1" "s6") ;第六组 
             ) 
  ) 
  (setq ret nil) 
  (while (setq lst1 (cdr lst)) 
    (setq item (car lst) 
          key1 (cadr item) 
          key2 (caddr item) 
    ) 
    (while lst1 
      (setq item2 (car lst1) 
            val1  (cadr item2) 
            val2  (caddr item2) 
      ) 
      (setq i 0) 
      (vl-some 
        '(lambda (x) 
           (setq vlst nil) 
           (if (member x key1) 
             (setq i        (1+ i) 
                   temp        (cons x temp) 
             ) 
           ) 
           (if (= 2 i) 
             (progn (if        (and (= (car (nth 0 temp)) (car (nth 1 temp))) 
                             (= key2 val2) 
                        ) 
                      (setq vlst (list (car item) (car item2)) 
                            ret         (cons vlst ret) 
                      ) 
                    ) 
                    t 
             ) 
           ) 
         ) 
        val1 
      ) 
      (setq lst1 (cdr lst1)) 
    ) 
    (setq lst (cdr lst)) 
  ) 
  (reverse ret) 
)

命令: (abc)
(("e1" "e3") ("e2" "e5"))

sicky111 · 发表于 2018-7-13 08:36:45

两两配对？如果有三组同时满足条件呢？

王子 · 发表于 2018-7-13 09:43:43

高深，学习了。。。。

xyz002 · 发表于 2018-7-13 11:25:09

marting 发表于 2018-7-13 00:05
命令: (abc)
(("e1" "e3") ("e2" "e5"))

短短几行代码就实现了，厉害！
万分感谢marting!

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】请教如何查找多重表中的元素

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评