一小段程序，求优化

wharan

有这么一段程序，A数据表，C数据表，两个表数据无法直接对应，需要通过有A和C共同数据特征的B来实现。现在我用foreach已经实现该功能，但编程方法不好，感觉效率较低。求高手优化以下。

数据转化部分：

(foreach x New_List
    (foreach y keyword
      (if
        (vl-some
          '(lambda (tmp) (wcmatch (strcase (car x)) (strcase tmp)))
          (cadr y)
        )
         (setq Tmp1 (cons (cons (car (cdr y)) (cdr x)) Tmp1))
      )
    )
  )

飞雪神光

测试数据都不给一套吗

wharan

飞雪神光 发表于 2023-6-14 20:13
测试数据都不给一套吗

已跟上测试程式

mahuan1279

mapcar  会快些吗？